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| EDITORIAL 


Chers FFC-Flistes, 


Voici le JFC nouveau, avec Son air de Vacances, 
Quatre-vingt pages bien remplies ! 


I1 va falloir vous habituer. Dorénavant, notre contrat 
avec notre imprimeur prévoit 75 pages par mois. Ceci sans 
augmentation de 1a cotisation, signalons-le. 


Mais maintenant, il va falloir remplir ces 75 pages ! 
Nous vous faisons confiance. De plus en plus d'articles 
nous parviennent, témoignant ainsi de la vitalité de notre 
Club, 


En ce moment de vacances, penser aussi à ceux qui passent 
leurs week-ends à rédiger ce journal. Éiderz-nous, en nous 
faisant parvenir vos articles sur support magnétique, Cela 
nous évitera de les retap 


Saluons la naissance d'une nouvelle rubrique, pour les 
listes: "Le coin des Lhex". Désormais, chaque mois, tous 
les lecteurs pourront rentrer dans leur ordinateur favori 
les programmes écrits en assembleur. Flus besoin de module 
Forth/Assembleur pour goûter les joies du Lex ! 


Vous trouverez dans 
Faris quelques détail 
Celles-ci sont au 
traduit par notre 
Sicob d'eutomne. 
Mais HF pourrait au Danemark, par 
exemple, : LITE publicitaires HF, 
Enfin : N'avansons pas plus vite que la musique. Les 
résultats obtenus sont déjà très prometteurs... 


1a réunion FFC de 
relations avec HF, 
le Sicob. Cela se 
des "4-tTemps" au 











Feut-étre VOUS Souvenez-vous d'une nouvelle qui avait 
entächée notre présence au Sicob de l'ennée passée (1984): 
NOUS avions eù un vol de matériel, N pouvons maintenant 
VOUS annoncer que HF et Jesn-Clai Becker ont été 
remboursés intégral nt. FFC-FARIS tient ses engagements. 






















Enfin, pour l'anecdots Ë POLE signaler que ce 
numéro QCCupe plus de Les £<cr une disquette. 

Fe AVOIr à QUES  Féser ver de La place eur la 
di 
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PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous le savez peut étre déjà, FFC PARIS se réunit une 
fois par mois, en plein coeur de Faris. Amenez votre 
matériel, votre bonne volonté et vos idées !  Flus vous en 
apporterez, et plus vous en trouverez chez vos collëéqgues de 
FFC, Ces réunions se déroulent de maniére très libre, aucun 
ordre du jour, discussion ou autre n'étant imposé. Un 
membre du Bureau est toujours présent, finsi, Si vous 
désirez remettre votre article tout frais au journal, si 
Vous avez des suggestions à faire, si vous voulez vous 
procurer des anciens numéros de JFC, ce sera en principe 
toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un seul instant 
Venez nous rejoindre tous les premiers samedi de chaque 
mois, au CENTRE DE JEUNESSE ET DE LOISIRS JEAN VERDIER 

11, rue de Lancry 

79010 FARIS : 
Et en montant au deuxième étage, vous entendrez des éclats 
de rire et des discussions passionnées vers la salle 15. 
Bttention, toutefois, de venir entre 16 et 19h. 


Four l'accès en métro, trois possibilités s'offrent à& vous 

à savoir: 

Métro Strasbourg St Denis: sortie Forte St Martin / Kid St 
Denis, coté pairs, 

Métro République: sortie KHld St Martin, coté pairs. 

Métro J, Bonsergent: Sortie Eld Magenta, coté impairs. 


Ah; j'oubliais: JFC est distribué en avant-première lors 
de ces réunions ... À bon entendeur Salut ! 


Les dates des prochaines réunions sont: (16h-15h) 
— Le Samedi 7 Septembre 1985 
— Le Samedi 5 Octobre 1985 


A Hientét... 
Fierre DAVID 
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REUNION PPC À PARIS 


Les 22 et 23 juin derniers s’est tenue une 
réunion des Clubs PPC à Paris, au CISP, 6 avenue 
Maurice Ravel, dans le {2èse arrondissement (Si 
si, rappelez-vous, c'est là que s’est tenue 
notre dernière Asseablée Générale). 


L'organisation, très efficace, était de 
Georges-Noël NICOLAS. Durant deux jours, des 
grateurs se sont succédés pour parler de sujets 
aussi divers que "Les Clubs FPC", "La politique 
d'HP*, “Le Basic du HP71". - 


Pour la première fois, HP était avec nous, en 
les personnes de MN, Eric CLEMENT, Robert BAYLE, 
et Philigpe CHAILLOT, "La Règle à Calcul" était 
représentée, ainsi que “Maubert Electronique”. 


satin aux alentours 
Après 


Tout à consencé le samedi 
de 9 heures, par le déballage du satériel. 
cette petite période d'installation, d.D. DOBIN, 
Président de PPC-T, et Philippe GUEZ, par la 
voix de Laurent ISTRIA nous ont parlé des Clubs 
PPC, de leur passé, de leur présent, et de leurs 
projets, 


#. Eric CLEMENT a ensuite présenté la politique 
d'HP vis-à-vis des Clubs, une ouverture sensible 
vers nous, qui se traduit ianédiatesent par un 
don de sodule "Translator Pac", À ensuite été 
évoquée notre participation au Sicob d’Autoane, 
sur le stand des "4 teaps", au gêse titre que 
les autres partenaires d'HP, Enfin, la g#ise en 
place de dépliants PPC dans les boîtes Ode 
matériels HP a été annoncée. 
Cofas nous pouvons le voir, 
bonnne direction... 


HP avance dans Îla 


Ce fut ensuite le tour de d.J. DHENIN de parler 
du Basic, Rétrogrojecteur à l'appui, 
Jean-Jacques nous à exposé le Basic tel qu'il 
existait avant, puis la norte ANSI, et enfin son 
aoplication sur le HP7IR. Très apprécié, cette 
intervention nous à agpris qu'il existait, dans 
le "Basic cosplet", une structure DO..L00P.. qui 
est en fait la structure REPEAT..UNTIL et 
HHILE,, du Pascal, 


Il est à noter la compatibilité des Basics HP: 
le Basic Coaplet existe à l’heure actuelle sur 
les #achines de la série 200, et on y retrouve 
le Basic du HP71 avec aodule Maths. 


Ensuite, nous avons ouvert le carton qui 
contenait les tee-shirts HP, La distribution a 
conduit à un petit quart d'heure de pause. 


Nous nous somaes ensuite détendus en écoutant 
Jean-François GARNIER parler de 5es réalisations: 
Une interface vocale donnant la voix à tous les 
contrôleurs HPIL: HP41, HP71 et HP75... 

Une interface HPIL-Centronics, qui donne la 
possibilité de prograsser une petite table 
trasante du type X710, par exesple, en HFGL, 

Un node” à couplage direct, et  cosposition 
automatique, qui sera consercialisé par la firme 
grenobloice KRISTAL, où Jean-François travaille 
en tant qu'ingénieur. 

I était l'heure de manger, tout était (bien) 
prévu, Les repas étaient pris au self-service de 
centre dans une ambiance très décoatractée. 

Puis vers 13h30 après un bon café, tout le 
sonde est revenu s’assoir pour écouter la suite 
des évennements. 


C'était le tour de Jean-Claude BORNES. Il est 
en train de réaliser une interface HPIL <==} 
Minitel. C’est fantastique, bientôt nous aurons 
une véritable interface vidéo, un sodes et pour 
les heureux possesseurs de Titan: un clavier en 
plus, Tout cela pour la soane de 2000 F environ. 


Ensuite,agrès le petit quart d'heure de pause, 
Pierre DAVID s’est installé près du 
rétro-projecteur pour nous faire Un exposé Sur 
FORTH, 

Tout à commencé vers la fin des années é6ô, 
quand Charles H, HMOORE décida de créer son 
propre langage. Depuis, de standard en standard, 
Forth s'est peu à peu affiné pour arriver à la 
forne actuelle qu'il revét dans le HF71. Pierre 
est quelqu'un qui connait très bien le Forth, 
pour en avoir écrit un sur un gros ordinateur 
{DPS8 pour les connaisseurs. .), 11 a d'ailleurs 
obtenu une sention pour cela (entre-autre). 


Durant le quart 
assisiler tout ceci, 


d'heure nécessaire pour 
Jean-Pierre BONDU nous à 


JPC 
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gontré un système original 
HP713 dans une luxueuse valise prennent place 
une cenéra vidéo, et le HP7I Et l'Assemblée 
peut alors suivre les gsanipulations de 
l'opérateur sur un écran de télévision 
(couleur. ..}, 


de présentation du 


En fin d’aprés-midi, Jean-Jacques MOREAU nous à 
révélé Iles particularités du HP7i, et de 5a 
structure. Jean-Jacques connait adnirablesent le 
HP7I, et cela se traduit par des articles de 
qualité,., (REFEAT), 


Il était {7h environ, et j'ai préféré ne pas 
faire l'exposé que j'avais préparé sur le 
fonctionnement de L'HFIL, La salle cosnentait à 
ressentir LE fatigue d'une journée 
d'interventions (les bidouilleurs aussi 
envie de s’échanger leurs bidouilles) ! 


ont 


discussions 
de vue et 


s'est donc achevée en 
en échanges de points 


L'agrés-#idi 
particulières, 
de programmes. 


Le diner s'est pris au aéee endroit que le 
déjeuner, 

La soirée s'est achevée très tard pour les plus 
aordus, À 2h du matin, nous n'étions plus que 
quatre: Jean-Claude  BORNES, Jean-François 
GARNIER, Pierre et moi-sème, penchés depuis 


olusieurs Heures sur le logiciel de l'interface 
ginitel, À 1h30, le HP75 était compatible. À 2h, 


re 


le HF71 l'était aussi... 


La journée de Diaanche se rapprochait plus des 
réunions mensuelles, ou des réunions de Lyon ou 
de Bretagne: les petites discussions 
personnelles ont agréablement renpgii la matinée. 


fprès le repas, Eric GENGOUX nous a expliqué 
cogment écrire aux Etats-Unis, pour coasander du 
matériel (nous avons tous pris note). Puis, à la 
desande générale, il a exposé Ja structure et Îe 
fonctionnement du "POD" du HP7S, ainsi que sa 
décention devant la politique d'HF envers le 
HP7S, Eric, cosse à ’accoutuné, avait 
resarquablenent préparé son intervention. 


Vers 17h30, après quelques parties de flipper 
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sur Cosgatible "IEN FC" avec Franck LEBASTARD et 
Alain FARGE, il était l'heure de tout ranger. 


C'est 1à que nous avons constaté la disparition 
d’un lecteur d’'EFRON et d’une HP41 bien remplie. 
C’est lanentable ! 


Resercions encore une fois Georges-Noël NICOLAS 
pour l'organisation jiapeccabable, ainsi que 
Stefano TENDON (futur FPC-Italie) et  Steen 
PETERGEN (PPC-Danemark) pour s’étre déplacés. 


Merci à tous et à bientôt 


Michel MARTINET (SI642, F#12 et CHHU#617) 


HEWLETT 
bp . PACKARD 


HEWLETT-PACKARD FRANCE : S.A. au capital de 250000.000 de Francs régle par les articles 118 À 150 de la loi sur les soclétés 
commerciales - R.C.S. Corbeil-Essonnes : B 7023805030, 


SIÈGE SOCIAL : Parc d'activité du Bois Briard - 2, Avenue du Lac - 91040 EVAY CEDEX - Tél. (6) 077.83.83 - Telex 692315 F 


Monsieur Philippe GUEZ 
CLUB PPC 


56 rue JJ Rousseau 


75001 PARIS 


Monsieur, 


Nous tenons à vous féliciter de l'organisation et du bon contenu 
technique du congrès PPC du 22 juin. C'est effectivement sur des 
bases professionnelles que HEWLETT-PACKARD peut vous accorder un 
aide efficace. 


3 


Nous avons le plaisir de vous confirmer ncs premières actions 


concrètes :! 


{D 


insertion d'information sur la promotion HP 41 et information 
oduits dans "Micro Revue! et "JPC Journal". Nous avons fait 
raître dans looping les adresses des 2 clubs. Attention de ne 
as diffuser des informations uniquement valables aux USA. 
2) Insertion carte postale dans les boites (10,40,70) 
- nous attentons, très vite, vos textes de présentation des 
clubs, 


- nous vous confirmons que le format agréé par HP est : A4 xA tm 
- prévoir un tirage de 15 000 exempl 
Service Marketing PC à EVRY (après acc 
er) 


ontrepart 


e 


ires à faire parvenir 
ptatio 


n par HP du bon à 


+1 
ue 
, 
Er hede 
Lis 


hr 


bd 
3 
a 


e du coût d'insertion pris en charge par 
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l'usine, HEWLETT-PACKARD se réserve le droit d'avoir accès au 
fichier et de l'utiliser pour ses besoins commerciaux. 


3) SICOB : STAND DES 4 TEMPS 


Nous avons bien noté votre intérêt pour avoir un stand 

commun PPC aux 4 temps. À titre exceptionnel, nous vous 
confirmons notre accord pour vous réserver un emplacement et 
prendre en charge 75 % des frais. 11 y a donc lieu de nous 
renvoyer au plus vite (Philippe GUEZ) votre dossier d'inscription 
avec un chèque de 5 000 FHT + 18,6 % TVA. 


Conditions: Une présence continuelle du ler au dernier jour 
est indispensable. 


4) HEWLETT-PACKARD offrira grâcieusement un module Translator Pac 
à chacun des 2 clubs, dans le but d'inciter les membres à 
développer sur le HP 71 B. 


5) La négociation des remises chez les distributeurs agréés HP 
sur présentation de la carte de membre PPC sera menée par les 
PPC, indépendament d'HP. 


6) Il serait bon que vous preniez contact avec le club Micro 
de la SNCF : Microfer 

Mr Jacques LEDOUX 

285.96.46 
à qui nous avons déjà prêté un HP 71B. 


Nous souhaitons renforcer nos liens avec vos clubs d'une 
façon amicale mais toujours professionnelle. 


Nous vous prions d'agréer, Monsieur, l'expression de nos 
sentiments les meilleurs. 


Eric CLEMENT 
CHEF DE PRODUITS-INFORMATIQUE PERSONNELLE 





NOUS EN 4YONS 
Sont en vente au Club: 


- Cartes magnétiques pour HP41 au prix de 1S0FF + 3,10FF de port les 50 cartes; 
- Cartes magnétiques pour HP71E au prix de 91FF + 3,10FF de port les 10 cartes; 
- Cassettes digitales pour HPB21614: 100 FF pièce, plus 3,10 FF de port par cassette, 
- Egrons (2714 & 2722) vierges au prix de 6ÔFF + 3,10FF de port pièce. Pour les Eprons 
programmées, nous consulter; 
- Module TIME (821824) au prix de 490FF + 86,50FF de port. Livré avec aanuel en français: 
- Module QUADRÈM (821704) au prix de 400FF + 6,50FF de port; 
- Kodule HPIL (821604) au prix de 970FF + 6,50FF de port. Livré avec manuel en français: 
- Pour les conmandes des ZENRON, CODROM et RON FANAME nous envoyer SÜ0FF ainiaur d’arrhes: 
- VASH (listing en anglais des 3 presières pages de La 41) au prix de {7OFF + 13,50FF de port; 
- Le aanuel de service de la 41 (en anglais} au orix de SÔFF + 6,50FF de port; 
- Le nanuel technique du convertisseur (en anglais) au prix de 20FF + 3,20FF de port: 
- HPIL Interface Specifications {en anglais) au prix de 80 FF + 9,50 FF de port 
- The HPIL Integrated Circuit User’s aanual len anglais): 40 FF + 6,50 FF de port 
- Interface Kit Technical Guide {en anglaish: 15 FF + 3,50 FF de port 
- Manuel technique du Minitel R (Ref, 250 Alcatel): 40 FF + 6,50 FF de port 
- Les anciens nuséros au prix de: 
ho Là 3 au prix de 15FF + 3,20FF de port par nunéro, 
No 4 à 16 au prix de 20FF + 3,20FF de port par nuséro, 
Ho 11 à 17 au prix de 25FF + 6,50FF de port par nuaéro, 
à partir du No 18 au prix de 3SFF + 6,50FF de port par nuséro. 


Les ports sont les tarifs PTT actuels en non urgent. 


ACHATS GROUPES 


Nous assurons des cossandes groupées pour ceux qui désirent profiter de notre réduction 
"spécial Club", soit 25% par ragport au prix HP. Pour ceux qui le désirent, nous assurons 
l'envoi postal en urgent ou en non urgent. Ces achats concernent aussi bien des nodules que des 
calculatrices et autres. 


HOTÉ: ces deux rubriques "nous en avons” et “achats groupés”, sont des services “Club” que nous 


rendons exclusivesent aux #enbres effectivement inscrits au club et nossédant leur carte de 
aerère PPC-PARIS, 
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Chers amis, 


nous recherchons tous les membres désiraux de nous aider à 


Comme d'habitude, s dé 
Ne qui ont du materiels à nous préter lors de 


tenir le stand. Et que tous ceux 
cette manifestation, seront les bienvenus. 








Merci et à bientôt pour le prochain S1COB. 


Evry, le 10 Juin 1985 





Philippe. 





Au cœur du centre commercial des 4 Temps, un nouvel espace est né : 
l'ESPACE HEWLETT-PACKARD 4 TEMPS. 

Il ouvrira ses portes pendant toute la durée du SICOB (18-27 Septembre) 
pour accueillir plus de 70 sociétés Partenaires Hewlett-Packard. 


moyen de promouvoir vos produits, unique en son genre et très efficace 
à en juger par le succès de l'opération 4 TEMPS 84, 


En effet, l'année dernière, 40 participants et 55 000 visiteurs ont large- 
ment contribué à la pleine réussite de cet événement. 

Aujourd'hui, PERFORMANCES A L'APPUI, Hewlett-Packard a la volonté 
d'amplifier ce phénomène et de faire de l'Espace HEWLETT-PACKARD 
4 TEMPS, un lieu privilégié de l'Informatique où seront regroupées des 
sociétés dynamiques et compétentes par les solutions qu'elles proposent. 


Nos moyens : publicité dans la Presse spécialisée, spots radio, affi- 
chage, fléchage sur le parvis, signalisation percutante dans le centre 
commercial, animation originale, catalogue... 


L'ESPACE HEWLETT-PACKARD 4 TEMPS VOUS ATTENDI 


| 
| Très attendue par la plupart d'entre vous, cette manifestation est un 
Vous êtes déjà très nombreux à nous avoir sollicités pour cette manifes- 
tation. Le nombre de places étant limité, nous vous demandons de nous 
retourner très rapidement la demande de participation ci-jointe accom- 
pagnée d'un chèque d'acompte. 

Compte tenu de la très forte demande, nous ne prendrons en compte 
que les dossiers dûment complétés (demande de participation et 

| chèque). 

| 


ET CECI AVANT LE 21 JUIN 1985. 


IL NOUS SERA IMPOSSIBLE D'ACCEPTER LES DOSSIERS NOUS PAR- 
VENANT APRÈS CETTE DATE. 


Dans l'espoir de vous compter parmi les participants, nous vous prions 
d'agréer, Madame, Monsieur, l'expression de nos sincères salutations. 


Véronique Tripard 
Relations avec les Partenaires 
Direction de la Communication 
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Sup. de Co.-Bordeaux : 
ordinateur de rigueur 


Grande première europeenne 
à l'école supérieure de 
commerce et d'administration des 
entreprises de Bordeaux : dès la 
prochaine rentrée, chaque étu- 
diant de première année devra 
obligatoirement être muni d'un 
micro-ordinateur. L'appareil sé- 
lectionné est un Hewlett-Packard 
110. ii ne pèse qu'un kilo et les 
éièves l'äpporteront à l'école, le 
rameneront chez eux, ‘ni plus ni 
moins qu'un vulgaire stylo-bilie 
ou un polycopié. 

Cette banaiisation de l'outil 
informatique n'est pas destinée à 
former des super-spécialistes ca- 
pables de concevoir des machi- 
nes intelligentes ou des program- 
mes. Pour le directeur de Sup. de 


Co.-Bordeaux, Henn de Pitray, un ‘ 


homme qui a longtemps exercé 
des responsabilités dans ie 
commerce international, H s'agit 
tout simplement d'ôter tout 
compiexe étudiants vis-à-vis de 
l'informatique, de leur apprendre 
à utiliser l'appareil aussi naturel- 
lement que les cadres français, 
en 1985, ont recours au télé- 
phone. L'objectif principal de 
l'école, créée en 1874, reste in- 
changé : former des cadres « gé- 
néralistes, flexibles et adapta- 
bles ». Mais le fait d'avoir vécu 
en permanence avec un matériel 
informatique, d'avoir appris à 
s'en servir, devrait « libérer les 
étudiants vis-à-vis du phénomène 
informatique ». l'intérêt du micro- 


ordinateur sélectionné est évi-. 


dent : sur le H.P. 110, l'étudiant 
pourra préparer son rapport de 
stage sur le dispositif de traite- 
ment de texte intégré, puis bran- 
cher son appareil Sur une impri- 
mante ; en matière d'études de 
marché, il établira facilement ses 


fichiers et ses systèmes de tri;. 


les cours de mathématiques fi- 
nancières vont être totalement ré- 
formés : les calcuis d'amortisse- 
ment ou 
financement étant réalisés par la 
machine, l'enseignement pourra 


les tableaux de 


être centré essentiellement sur le 
« pourquoi » et non plus sur le 
« comment ».… 


Charge 
supplémentaire 


Difficulté pratique de cette 
opération « informatique » : les 
étudiants doivent acheter leur 
propre machine, ce qui constitue 
une charge supplémentaire à 
côté des frais de scolarité classk 
ques. La direction a réglé le pro- 
blème en passant deux accords : 
l'un avec la société Hewiett-Pa- 
ckard qui a consenti une réduc- 
tion de 60 % sur chaque appareil 
par rapport à son prix public, 
l'autre avec le Crédit du Nord qui 


proposera des prèts à des condi- . 


tions très avatageuses aux étu+ 
diants. Ainsi le remboursement 
s'effectuera, de façon écheion- 
née, après entrée des interessés 
dans la vie active. 


Cette initiative de Sup. de 
Co.-Bordeaux pourrait bien faire 
école rapidement : ies grands 
établissements français de 
commerce et de gestion ont tou- 
jours manifesté leur intérêt pour 
l'ordinateur, et la plupart sont 
dotées de centres informatiques 
importants. Jusqu'à présent, au- 
cune n'avait osé sauter le pas en 
imposant à ses étudiants le port 
du micro-ordinateur personnel. 
Mais, dans ce secteur d'ensei- 
gnement supérieur particulière- 
ment dynamique, l'émulation 
n'est pas un vain mot. + 


Sup. de Co.-Bordeaux, en 
jouant les précurseurs, va encore 
améliorer son image de marque. 
L'école était déjà située dans les 
premiers rangs du hit-parade na- 
tional : les 120 étudiants de cha 
que promotion sont le fruit d'une 
sélechon très sévère, à partir de 
queique 3 000 candidats. 


Jacques MALHERBE. 


nm On ms ms me men ue met ue te en me us tt me un mt me mens ee mu es mms 03m 


URGENT-URGENT-URGENT-URGENT-URGENT-URGENT-URBENT -U 


Grégoire JOUVE {T400) 
7, rue À, Leray 
35100 RENNES 

Tel: (99) 50 22 23 


Messieurs les Présidents des Clubs 


PPC-T et PPC-PC, 


À l'issue de la réunion PPC au CISP, 
Maurice Ravel à Paris, le 23 juin 65, 
pas pu retrouver aon HP4{ et ses modules qui 


disparu entre 17h et 17h30. 


avenue 
je n’ai 
ont 


Je vous serais reconnaisant de desander aux 
adhérents des Clubs de s’aider à ies retrouver. 


Cette machine est une HP41CV de nuaéro de série: 


2217 5 42949 
sais 


avec une carte de €CX et contenait un 


sodule Panare, un module Stat [| et un aodule 
triple regroupant dans un boitier X-Fonction un 


Zenros et deux XMeaory, 


Avec nes remerciesents, 
Grégoire JOUVE 


ENT-URGENT-URGENT-URBENT-URGENT-URGENT-URGENT-URGE 


R. PENNETIER 

Société ICE 

11 de ja Vigne aux Loups 
& rue Fossuet 

91160 LONGJUNEAU 


Monsieur Pierre DAVID 


Monsieur, 
Vous avez été très aimable d'essayer de 8e 
renseigner sur le problèae rencontré sur ja 


boucle HPIL entre HP75C et irprisante HPE21628, 
entrée graphique et codes-barres, 


âyent fini par découvrir ce qui ‘ne coilait 
pes", je vous en fais part, à toutes fins utiles. 


ll s'agit en fait d'une toute petite erreur 
d'impression du sanuel de l’ieprisante (p.15), 
I] suffit de faire précéder dans la séquence le 
*b® d’un signe "aultiplier" (t), Finalerent (et 
ce serait tellement olus clair de l’exprirer 
ainsi} le séquence conpiète est la suivante: 


PRINT CHR$(27)L"fbnnng"&CHRS 1)... 

Suivent les codes définis à la page 9 du saanusl 
(9 à 127), 

nnn définit ie nonbre de codes qui vont suivre, 


Dans la pratique, on peut resplacer l’enseabie 
des codes par une variable (A$ par exeepie), et 
la séquence devient: 

PRINT CHR$(27)&"#bnnng"&A$ 

Bu préalable, on écrira: 

A$=CHR$( DECHRST D... 

Â$ peut étre dimensionné {1 octet par code). 


À noter que le livre de Janick TAILLANDIER 
"Autour de la boucle" n’est pas plus explicite à 
ce sujet et recopie fidèlement la faute. 


Four les codes-barres, on peut effectivement 
les obtenir en 8 bits en écrivant par exemple: 
PRINT CHRS(27)ECHRS 1124) LCHR# (210) ECHRS IN) LR ARC. ." 
N aura pour veieur {ce peut être une variable): 
127 + nb de caractères (l6 au gaxinun). 
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Toutefois, l'édition de ces codes-barres semble 
assez peu intéressante (grosse consommation de 
papier: une seule ligne de code sur la largeur 
de la bande). 

Merci encore de votre obligeance, et recevez 
ses sincères salutations. 


R. PENNETIER 


CHGC EN RETOUR 


Je voudrais revenir sur l'articie qui a été 
puèiié en son non dans le JPC No 22 en page (10: 
"La rapidité des Basic's”. 


Cet article avait été écrit en catastrophe à 
l'occasion du premier Sicob, où HP a présenté je 
HP718, Vous aurez resarqué qu'il participe de 
l'enthousiasae qui régnait à l’époque dans notre 
Club. Mécontent des mauvaises conditions dans 
lesquelles j'avais réalicé ce travail, c'est avec 
une secrète satisfaction que j'avais aeppris un 
geu plus tard qu'on avait égaré le manuscrit de 
cet article, 

Bien entendu, j'avais rélé come un diabie 
contre celui qui avait osé perdre mon travail... 
Bussi ai-je été pris au dépourvu lorsque j'ai vu 
son article dans notre Journal. 

de ne renie pas ce qu a été publié, cependant, 
dens un souci d'information, je tiens à contester 
certaines de ses affiraations, D'abord, outre !e 
chauvinisæe pro-HP qui suinte désagréabienent 
d'entre les lignes, le lecteur attentif aura noté 
un vice de fond dans cet articie: il était 
clairesent destiné au néophyte ignorant. Dans ce 
cadre là, il eu été judicieux que l’auteur (oi) 
prenne Ja peine d'adopter un point de vue plus 
élevé que celui du néophyte, pour permettre à ce 
dernier d'accéder à des inforsations qu'il ne 
peut se procurer Iui-néme. 


Si jene remets pas en cause la partie technique 
du travail, Ja réalisation, l'analyse et le 
conaentaire des tests -et de leurs liaites- a 
gartie qui tente, plus ou moins honnétesent, 
d'exposer les principaux défauts des aachines est 
truffée d'erreurs, En particulier, les 
commentaires que j'ai pu faire qur la facilité 
d'accès des différents matériels: il est évident, 
à La lecture de l’article, que je n'ai pas pris 
le tenps de a’attarder eur es geanuels 
d'utilisation, alors que tout utilisateur 
raisonnablement audeste cossence par là, De plus, 
la qualité de la documentation joue un 
essentiel dans l'efficacité d'un matériel. HP 
n'est pas toujours ce que j’on fait de mieux dans 
ce domaine, Ainsi, faute d’avoir lu le manuel, le 
fonctionnement du MIO s'a presque entièrement 
échapoé, L'affirsation selon laquelle il faudrait 
faire un LIST cospiet pour renonter d’une ligne 
de prograñne sur les machines Casio est fausse: 
conse bien souvent, il suffit de faire LIST suivi 
d'un nunéro de ligne... De plus, il parattrait 
que le PB700 a une touche équivalente à la flèche 
ascendante du HP718, Un utilisateur de 497 
courroucé m'a signalé que celui-ci calcule eur 
beaucoup plus de six chiffres. 


Enfin, si le HP7IB m’avait paru si facile 
d'accés, c'est aussi grace à l'assistance de 
personnes qui le connaissaient déjé bien, 


Pierre LANGLOIS (PPCPC # 87) 


UN NOUVEAU MODULE POUR LA HP41 


Le "Bulletin Board" de FFC (dernières 
nouvelles, diffusées par répondeur téléphonique 
aux USA), fait état de l’arrivée d'une nouvelle 
ROM de 12Xo paur HP41, qui serait un éaulateur 
des machines de la "Série 19", soit l’encsenble 
des trois machines HPI2 (financiére), 15 
{scientifique-sathématique) et 16 (nultibases). 


rôle 


Ce aodule serait écrit pour partie en langage 
utilisateur, et le reste en eicrocode, et serait 
offert dans un premier teaps à tout nouvel 
acquéreur d’une 4/CV ou CX, à l'occasion de la 
campagne de promotion qui débuterait aux 
Etats-Unis le ler Août prochain. 


Cette information, que je tiens de dJanick 
TAÏLLANDIER (qui a pu aopeler le “Bulletin 
Board” derniérement),  cenble étonnante à 
plusieurs égards, puisque l'apparition d’une 
telle ROM ferait concurrence à La fois à Ja 
Série 10, à certaines ROM de la 4f (Naths, 
Finance) et partiellesent au 71 (fonctions 
suitibases et aoduie Maths, pour un prix trés 
inférieur). Elle est donc à préciser et 
confirmer, bien que FPC ne lance généralesent 
pas de telles inforaations à la légère, 


Eric BENGOUX (F#108) 


COURRIER DU COEUR . 


+ 


Michel MARTINET (P#12, 51642, CHHUS617) 

83 rue de Gergovie 

75012 PARIS 

Tél: (1) 545 92 8Ù 

Vend: 

HP7SC + 6ko + Visicaic + Text formatteur + nbreux 
logiciels: 6000 FF. 


Jean-Jacques DHENIN 

35 rue EBcileau 

92120 MONTROUGE 

Vend: 

2 (deux) aodules “Translator-Fac* pour HP7IR, 
Prix neuf:1850 FF, soidés à 1490 FF pièce, 


Eric GENGOUX (P108) 
rue de Furstenberg, 
5006 PARIS 
Tél, D: (1) 633 65 79, B: (1) 285 68 23 


Vends 2 unités de cassette à 2600FF (pièce) date 
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d'achat fin 85, 


Etienne POUPEE 

B, rue Maître Jacques 
32159 BGULOGNE 

ends HPIL (pour 71) 
aodule nréaoire foour 71} 600FF,. 2 
ipour 41) ŒSGNFF piéce, Î Tandy 
2506FF. D'autre part, étudie tout 
interface à la demande. 


120ûFF à débattre, 1 
godules HPIL 

aodèle 129 
soft et 


Philippe DAVASE 

7, rue Ho Chi Minh 

78509 SARTROUVILLE 

Tél. D: (3) 9143 51 67, Bi 757 31 40 (poste 351} 

Vends du s#atériel pour HP4!, JIaprisante 24 
colonnes HPFIL (prix neuf S628FF}, vendu à 
Z814FF. laprisante GPIOO-HPIL (prix neuve 
ÉGOGFF) vendue JOGOFF, { module d'extension 
fonctions + 2  aodules d'extension #énoire 
grounés en un seul module (prix neuf Z2730FF) 
vendu 1395FF. Module FFCEDK {orix neuf 1400FF) 
vendu OFF, Moduie mathésatique (prix neuf 
ASSFF) vendu Z218FF. Module statistique (prix 
neuf AJSFF) vendu 218FF. Noduie Structural 
Analysis (prix neuf SÉÔFF) vendu 280FF. Module 
Surveying -togographie- (prix neuf 435FF) vendu 
218FF, Module Home Management (prix neuf A3SFF) 
vendu 2189FF, Boite de 6 rouleaux pagier (pris 
neuve (AFF) vendue 73FF, Lecteur optique pour 
HP4 prix neuf AS60FF) vendu 780FF. Port 
extender 6 ports (prix neuf SG0FF) vendu ASÛFF, 
Soit totaux prix neuf 20803FF, et totaux prix 


y 


d'occasion 10402FF, Soit un taux de vente de EÙX . 


© 


René JACGUET 

2, villa Boicsière 
75116 FARIS 

Téls (11 727 50 29 après 

Vend HP4ICY + HPIL + HFa21i 
Module tige + Module XF 

Prix neuf: 22000 Frs, Vendu 8500 Frs, 


A 
2h + 


HP821614 + 


H. NAUGUERET : 
Tél: (1) 594 45 08 

HP&ICV orix neuf 2150 FF vendu 1100 FF 

XFonctions: prix neuf 950 FF, vendu 400 FF 

Nod,. Tiae: prix neuf 850 FF, vendu 490 FF 

Jeu de batteries suppi.: prix neuf 395 FF, 
vendues 200 FF, 


"7 


n26 page 12 


HE7EC + 8 Ko: prix neuf 8250 FF, vendu 4500 FF 
Mod. Visicalc: prix neuf 2300 FF, vendu 1150 FF 
Nod. Text Format.: prix neuf 1200 FF, vendu 400 FF 
ap, HP821434: prix neuf 3825 FF, vendue 1500 FF 


lap. HP821428: prix neuf 4825 FF, vendue 2000 FF 
Vidéo HP821454: prix neuf 2700 FF, vendue 1250 FF 
Iap. HP82905E: grix neuf 7200 FF, vendue 2500 FF 
Moniteur Princes prix neuf 1209 FF, vendu 500 FF 
Frédéric BOCCERS 
8 rue Rabelais 
b3100 CLERMONT-FERRAND 
Tél: (73) 25 ë8 08 
Recherche du matériel d'occasion: 
Accus, chargeur et Fonctions. 
Jusé Ignacio DE LA PEHA 
dE Bis rue Sébastien Mercier 
75015 FÉRIS 
Tél: (1) 579 41 94 
Vend: lecteur de cartes pour HP71B: 500 F 
nr 
n \ \, 
{ " i Pen \ 
(SA, FR = 4 
sea 
A, 4 
RE CEE 
us Le 
- vire, 
és 
À f nn > \ 
ne f hi 
Je \: 
og À 
f - 
5j / 
di  : Ton | 


Chers amis. 


Nous sommes heureux de souhaiter le bonjour à tous les 
adhérents de PRC-Paris. À l'invitation de votre Président, nous 
serons amenés à vous présenter réouliérement dans ces colonnes 
les activités de FPC-Toulouse. 

Comme vous le savez peut-étre. PRC-T est "l'autre" club 
français consacré aux portable HP. Au fil des année les deux 
clubs ont affirmé leur personnaiité. au ooint aus leurs 
DuDiications —JRC OouUr PAC-Paris eËE MICRO-REVUE Dour 
BPC-Tonulouse- sont maintenant beaucous olus complémentaires cue 
concurrentes, ce qui est une trés bonne chose. - 

Pour cette première orésentation. cisons en simplifiant 
que RPC-T s'intéresse aux calculatrices Hewlett-Packard gérie 10 
et 40, au HP-75, qui disooée d'une rubrioue régulière dans nos 
colonnes, et au HB-71, I1 s'intéresse également au langagé FORTH, 
et cela ouel oue soit l'ordinateur Hôte. Ainsi dans le No 6 
(Mai—-Juin, parution tous les deux mois) de MICRO-REVUE, on trouve 
20 pages de orogrammes HP-41, 25 pages d’acolications HP-41. dont 
une descriotion d’un module MATH en préparation, iQ paces 
consacrées au  HP-71, 18 oages consacrées au HP-75, un programme 
pour HP-16, 18 oages consacrées au FORTH dont 12 pages pour 
débutants, et 16 oages de magazine (les journaux, oetites 
annonces, sur le marché,,...), 

Nous avons également un service librairie à prix 
réduits, une petite coocérative. et un service photocooie qui 
diffuse à oeu près tout ce qui est disoonibie (et de cooie 
autorisée) pour HA où FORTH. Nous venons d'inscrire à notre 
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catalooue les "IDS" du module HB-IL du 71. Ce ‘document -52£ 
Dages, qui ne Sera Das diffusé par Mewlett-Packard- est la 
descriotion abondamment commentée du orogramme en assembleur du 
module KHP-IL. Ce document est déconseillé aux déoutants et tout 
acheteur s’engaue à ne oas interroger HP eur son contenu Il est 
disponible oour nos adhérents au orix de £50F franco. 

Nous avons également tous les listinos assembleur aui 
permettent d'installer le FORTH sur Votre micro-ordinateur 
(assemoleur et oetite connaissance cu lanoace machine nécessaire) 
DNEX O0F, 

Par contre nous ne diffusons olus le module Zenorange., à 
la suite de difficultés innombranles avec le fournisseur, ni le 
module CCD. 


Nous invitons tous ceux d'entre vous oui sont intéressés 
à nous demander notre catalogue/descriotif du club oui vous sera 
envoyé avec la liste de 105 ouelcues 450 adhérents actifs en 
France et à l'étranger. 


Salut à tous 


Le bQureau de PRC-T 


pacé 


î 


dt 


7° Championnat International de 
programmes d’Othello-Reversi 


7 th Othello-Reversi Programs World Championship 
_& R 

o$*" A 
ANMOUE 


Chers amis, 





Paris, le 20 juin 1985 





Vous savez, sans doute, que le prochain championnat de programmes 
d'OTHELLO-REVERSI se déroulera au SICOB, le 21 septembre prochain 
pour la catégorie ordinateurs de table, et les 21 et 22 septembre 
pour la catégorie ordinateurs de poche. 


Nous serions très heureux de compter certains de vos adhérents 
parmi les participants et souhaitons recevoir leur inscription 
le plus rapidement possible afin de pouvoir organiser ce tournoi 
encore mieux que les années précédentes. 


À cet effet, vous trouverez ci-joint le texte des règlements pour 
les deux catégories, et un bulletin d'inscription que vous pouvez 
évidemment photocopier. 

Dès réception des bulletins d'inscription, nous enverrons aux 
participants les informations pratiques concernant le tournoi. 


Nous vous attendons nombreux, 


Bien cordialement, note PAT: 
Brigitte MILLE 


Promotion 
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L'ORDINATEUR INDIVIDUEL (Othello) 5 place du Colonel-Fabien 75491 Paris Cedex 10 & (1) 240 22 01 


HP Æ 1 R PF NN 


Pierre COLIGNON 


Pierre ANTOINE 


Pierre LANGLOIS 


Pierre ANTOINE 


Philippe TENAND 


Christian MORLOT 


Christian MORLOT 


Christian MORLOT 


Transformations Etoile-Triangle 


Taille du cataloque 


Recherche de dates 


Conversions Minuscule / Majuscule 


Des nouveautés pour HP41i 


Conversion de fichier texte en minuscule 


Balistique 


Régiage du module TIME 


HF 4 1 ASSErIBSLEUR 


Pierre ANTOINE 


Inversion du registre "C" 
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TRANSFORMATIONS ETOILE-TRIANGLE 


Dans le cadre de différents calculs 
d'éléctrocinétique, il est parfois fort utile de 
simplifier le réseau étudié, On transforme alors 


en une résistance équivalente l'ensemble des 
résistances qui constituaient le réseau, Cette 
opération peut se révéler difficile 1 on ne 
dispose que des formules d'association de 
résistances en série et en parallèle, et qu'on ne 
connait pas le théoréae de Fennely... 


METHODE UTILISÉE 


Le théorème de Kennely et les formules qui en 
découlent, permettent de transformer une gaiile 
triangulaire de 3 résistances d’un réseau, en une 
étoile de trois résistances sans que les 
caractéristiques du réseau soient aodifiées (en 
soient affectées), Rassure2-vous, je n'ai pas 
l'intention de vous faire un cours (j'en serais 
d'ailleurs bien incapable), néanaoins et pour 


plus de clarté, il me senble nécessaire de 
briévement vous rappeler les formules de 
transformations utilisées. 
i 
RSI # Te 
FFE ses AMS----- >> Il 
1 
3x 
R3 ' R2 
III ----AMM--- ANV---- 1] 
Explicitons notations. Les 


tout d'abord les 

résistances désignées par un seul indice 
appartiennent à l'étoile et celles désignées par 
un indice double au triangle. Plus précisement, 
on notera R1 (resp. R2, R3) la résistance placée 
entre les noeuds 0 et 1 (resp, 0 et 2, Ü et 3), 
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Dans le cas du triangle, on notera RI2 (resp, 
R23, RKSl) la résistance placée entre les noeuds ! 
et 2 (resp, 2 et 35, 3 et fl. L'erreur 
d'identification est donc iapossible. 


Donnons maintenant les formules de passage du 
triangle à l'étoile: 

T = R12 + R235 + R3I 

RI = RI2 f ASL ZT 
R2=R2HIR3S/E 

RS =R23#RS/E 

Donnons enfin les formules de 
l'étoile au triangle: 

E = RIIR2 + R2HRS + R3IRI 

RI2= E / RS 

R25= E j RI 

R31= € / R2 


passages de 


PROGRANNE 


Le proganse Que je vous propose est donc trés 
single, 

La presière partie du prograsse qui regroupe Îles 
routines de calcul fractionnaire, est très 
largement inspirée du livre de Jean-Jacques 
Dhénin paru aux éditions du PSI: “Proganser HP41”. 
Tous les calculs s'effectuent dans la pile sans 
qu'aucune séaoire soit utilisée. 

On trouve ensuite les routines de transformation 
Friangie-Etoile (T-E) et Etoile-friangle (E-T). 
Ces deux routines font appel à des sous-prograñges 
comauns d'initialisstion et d'affichage. 

Viennent enfin deux routines qui persettent de 


déterainer la résistance équivalente à deux 
résistances disposées en série gour "RS" ou en 
parallèle pour *RP*, 

MODE D'EMPLOI 
Supposons Que vous vouliez faire une 


transformation friangle-Etoile... 


Vous Lancez alors le prograase en tapant: (XE0] 
aT-E" 
La sachine vous demande alors d'entrer la valeur 


de la résistance R12 du triangle; elle affiche 
donc: 
"TRI2 =" 


En supposant toujours que la valeur de cette 


résistance vaille 0,5 ohas, vous devez répondre: 

1 CENTER*J 2 ou encore 0,5 [LENTER*) Î, puis 
appuyer sur [R/S], 

Et ainsi de suite, jusqu’à ce que les valeurs 
des trois résistances aient été introduites. 

Le progranne affiche alors les résultats sous la 
forme: "ERi=xxx/xxx" et ainsi de suite... 

de vous laisse découvrir le fonctionnesent des 
autres programmes (E-T, RS, RP) fonctionnent 
d’ailleurs sur le mése aoûèle. 

Bien entendu, il est possible d'effectuer les 4 
opérations sur les fractions  (F+,F-,F#,F#) 
directesent au clavier, J] convient alors 
d'entrer les deux fractions avant d'appeler ces 
fonctions. 


EXEMPLE 


Soit le réseau suivant: 


1 che I] 3 ohe5 
MANN ANMNV--- 
5 I : ]  : 
Dre $ 5 ohss = 
1 2 ohas i & chas : 
AN" AN --- 
Il 
Ün à donc: 
R12 Il 
MN" 
De à 1 
| £ R23 
1 i 
i R13 É 
AW 
III 


Ceci se sisplifie pour donner: 


MN AM --- 
À Rt : 1 B 
MM: te 
1 R3 i 
= AN AWW-- 
HI 
Pour siasplifier un tel réseau, on utilisera 


plutôt une transforsation T-E, (11 est également 
possible d'utiliser une transforaation E-T, mais 
cela conduit à des calcuis plus complexes (je 
vous laisse vous aauser...}., On tapera donc : 
CXEG] "T-E" 

"TRI2 = “ -} { CENTER*] 1 [R/S] 

“TR23 = " -} 5 LENTER*] 1 [R/S] 

“TRS = " -} 2 LENTER*] 1 [R/S] 


Les résultats donnés par le prograsae seront 
"ERI = 1/4 
"ER2 = 5/8* 
"ERS = 5/4” 
B vous aaintenant de trouver la résistance 


équivalente entre À et B. 


Bon courage et bonne vacances... 


Pierre COLIGNON 


CISLBL °RF* 
02 ST0 Z 

03 XCY 

04 STOT 
O5#LBL 01 
06 NOD 

07 LASTX 
08 X2Y 

09 x407 

10 670 01 
1 + 

12 57/1 

13 ST/ Y 

14 RDN 

15 RTN 
16LBL "F/" 
17 XOY 
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1B#LBL "Ft" 
19 STI 2 

20 RDN 

21 ST8 2 
22 RDN 

23 GTO "RF" 
2ANLBL "F-" 
25 CHS 
26HLBL "F+" 
27 SIT 
28 X() 7 

29 ST 1 
30 t 

31 RCL 2 
32 + 

33 XOY 

34 GTO "RF" 
3SLBL "T-E" 
36 "TR" 

37 ASTO 08 
38 1,1 

39 XER 50 
40 RL 04 
Ai *ER" 

42 ASTO 00 
43 RCL 05 
44 RCL 04 
45 RL 03 
46 XEQ "F4" 
47 REL 02 
48 REL 0! 
49 XEQ "F+" 
50 STO 08 
St XOY 

52 ST 07 
53 RL 02 
54 RCL 01 
55 RCL 06 
56 RCL 05 
57 NEO 51 
58 1 

59 XEO 54 
40 RL 02 
gi REL 01 
82 RCL 04 
83 RCL 03 
64 XEB 51 
65 2 

&b XEO 54 
87 RCL 04 
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68 REL 03 
69 RL 06 
70 REL 05 
71 5F 00 
724LBL 51 
73 XEG F4" 
74 REL 07 
75 RCL 0B 
76 XEG "“F/"* 
77 FC2C 00 
78 RTN 

793 

80 XER 54 
81 RTN 

82 GTO "T-E* 
834LBL *E-T* 
84 "ER" 

85 ASTO 08 
86 i 

87 XEG 50 
88 “TR* 

89 ASTO 00 
90 REL 04 
91 REL 03 
92 REL 02 
93 REL 01 
94 XER "F+" 
95 REL 06 
98 RCL 05 
97 XEG "FI" 
98 ST0 07 
99 XOY 

100 STD 08 
101 RCL 04 
102 RCL 05 
103 REL 02 
194 RCE 01! 
195 XEG “F4* 
106 REL 08 
107 REL 07 
108 XER "F+* 
109 STD 07 
110 X0Y 

111 STD 0B 
112 XCY 

113 REL O6 
14 REL 05 
115 XER *F/* 
116 12 

117 XE8 54 


118 RCL 08 
119 REL 07 
120 RCL 02 
{24 REL 01 
122 XEG "F/* 
123 23 

124 XER 54 
125 REL 08 
124 REL 94 
127 RCL 03 
128 RCL 05 
129 XEQ “F/" 
130 31 
LSULBL 54 
132 FIX 0 
133": 

134 ERCL 00 
135 ARCE X 
16"+ =" 
137 ARCL 2 
138 "!-/" 
139 AREL Ÿ 
149 FIX 4 
141 PROMPT 
142 RTN 

143 GTQ "E-T" 
IHLEL 50 
145 970 07 
146 1,006 
147 STO 00 
148 FIX 0 
LASILBL 53 
150 "" 

151 ARCL 08 
152 BREL 07 
153 196 07 
154 XER 70 
55 “+ =1 
154 PRONPT 
157 ST IND 00 
158 156 00 
159 XOY 

180 STE IND 00 
181 156 00 
182 6TO 53 
183 FIX 4 
184 RTN 
18SLEL 70 
186 REL 07 
187 INT 


168 4 

169 MOD 

175 X=9? 
{711 

172 ARCL 
173 RTN 
174YLEL “RP* 
173 * RI =" 
176 PROMPT 
177 1 

178 i 

179 RDN 

180 RDX 

181 EG "F/* 
182 STD 01 
183 XC2Y 

184 STO 02 
185 1 

186 1 

187 * R2 =" 
158 PROMPT 
189 XEB “F/* 
190 REL 02 
191 REL 01 
192 XEG "F+" 
193 1 

194 1! 

195 RDN 

196 REN 

197 XEB "F/" 
19% "R=" 
199 FIX 0 
200 ARCE Ÿ 
201 "EE 
202 AREL X 
203 FIX 4 
204 PROMPT 
205 ETD "RP" 
2083LEL "RS" 
207 " R1 =" 
208 PROMPT 
209 * R2 =" 
219 PRONPT 
211 XEG “F+" 
212 FIX 0 
13"R=" 
214 AREL Y 
215 “H/" 
218 ARCL X 
217 FIX 4 


JPC n£b page 19 


JPC 


218 FROMPT 
219 670 "RS" 
220 END 


TAILLE DU CATALOGUE 


Le programe “MEDSI77" donne la taille du 
catalogue de la cassette, . 
La valeur ect donnée par jl'octet 19 (voir un 
ancien numéro de JPC...) 


gift 
62 C 
03 € 
ÿ4 1 
5 FINDAID 

9h SELECT 

97 à 

0& DEVL 

69, 

10 OUTXB 

11 QUTYR 

12 2 

13 DEVT 

1435 

15 DEVL 

18 19 

17 GUTYB 

18. 

193 DEVT 

20 INXB 

218 

221 

23 E 

24 - 

25 FIX Ô 

26 CF 29 

27 PREUF 

28 ACX 

29 * FICHIERS" 

30 “FH POSSIBLES, * 
31 FRA 

32 END 
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Pierre ANTOINE (Pbi) 


Mine si, conne vous, j'estine que le aodule Time 
de La HP4f n'a pas encore trouvé de concurrent 
sur les plans de la puissance et de la facilité 
d'utilisation, je trouve qu'il aurait gagné à 
avoir quelques fonctions supplémentaires. 


Entre autres, la fonction que je vous présente 
aujourd'hui qui permet de répondre aux questions 
du type: ‘Quelle est la date du mardi précédent 
le ler janvier 1988 ?" 

âvec SEEXD, il suffit d'introduire 1,011586 
CENTER], puis -2, et de lancer la routine, Vous 
avez corpris que le premier chiffre correspond à 


la date de départ, et le deuxiène au jour de la 
semaine recherché, le signe de ce dernier 
indiquant au prograsse si la date est à chercher 


avant ou aprés la date de départ, 


On s’a déjà objecté qu'il est plus sinple de 
faire 1,011988 [DOK], et d'utiliser ensuite une 
gymnastique mentale sieple. Et effectivement, si 
vous êtes rongus à ce genre d'exercice, vous 
n'avez pas besoin de cette routine, mals je pense 
que votre machine avait besoin de l'aporendre, À 
soins que vous ne préféreriez voir votre 
grogranee d'agenda s'arréter toutes les 5 ainutes 
pour vous demander par exenpie: “Quel est le 
premier lundi du eois de décenbre 1985 svp 7”... 


Resarquez que la routine détruit le registre T 
et l’état du drapeau 0, le registre Z descend 
intact en Ÿ, les registres À et Ÿ étant détruits, 


Maintenant,  sauriez-vous se dire la date du 
deuxiène sasedi du anis de septeabre 432) ? 


Pierre LANGLOIS (PPC#87) 


OLILBL *SEEKD" 
02 CF 90 
93 1407? 

04 SF 00 
05 REL Y 
94 DOH 

07 FC? 00 
08 CHS 

09 + 

197 

11 HOD 

12 F52C 00 
13 CHS 

14 DATE+ 
13 END 


Prograæaes "MIN" et “NAJHIN" 


transtorse L'ALPHA en m#inuscules, Ceci 
gais Îles 
{Z reste 


RIN {us} 
ne concerne bien sûr que les lettres, 
autres signes sont également traités 
%, mais À devient a, et a reste a). 


touche 
{PPC 


HAJNIN, fait la aène chose, mais il ne 
pas à la première lettre de l'ALFHB. 
devient Ppc)i, et (X$A devient 414). 


OLYLEL *MAJMIN® 
92 E 

03 AROT 

04 ALENG 

05 - 

ÿ8 CHS 

07 610 01 
QB#LBL MIN" 
07 ALENG 
10RLEL 01 

it ATOX 

12 65 

13 X2Y? 


14 670 00 
15 ELY 

16 91 

17 X<Y? 
18 670 60 
19 32 

20 ST+ Z 
21 RON 
224LEL 00 
23 REN 

24 XTDA 
25 XCY 
26 DSE À 
27 610 01 
28 END 


Pierre ANTOINE (#61) 


DES NOUVEAUTES POUR HP4I 


Les amateurs de HP41 peuvent trouver au sein de 
certains clubs et distributeurs spécialisés un 
certain nosbre de périphériques nouveaux venant 
de petits fabriquants européens nonbreux et 
variés. Voici une sélection des productions les 
plus intéressantes. Chaque aodèle existant sous 
des formes diverses et à des prix variant du 
sisplie au double suivant ses possibilités. Ce 
sont: 


Des tables btrafantes et des 
interfacées HPIL (seikosha, canon, 
environ AëÜÜFF}, 

Des sodules ROM connandés par les clubs à 


iaprisantes 
Etc... à 


Hewlett-Packard {PPCROH, CCDROM, ZEHRON, 
PÉANBME.., à environ  1G00FF), Des lecteurs 
d'epronm (de 700 à 2500FF ou plus}, dont le très 


beau HHP de 32k {à SO0OFF) sous la forae d'un 
faux lecteur de cartes magnétique, 

Du matériel pour prograaser en m#icrocode (ce 
qu'on appelle un MLDL, de 2500 à S000FF), des 
logiciels en eprons progrannés en langage noraal 


JPC 
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ou mæicrocode (ce qui multiplie la vitesse 
d'exécution par 349,5), de 300 à 450FF, et qui 
nécessitent un lecteur d’epross. Ces logiciels 
touchent des domaines très variés (math, 
gestion, routines, prograanation synthétique, 
etc...). 

On trouve aussi des ports d'extension (de & à 8 
sorties suivant le maodèle, dont le français 
SICAPE à 1250FF). 

Un synthétiseur de voix (HHP à 5000FF). 

Un clavier de type machine à écrire (PB6G à plus 
de S000FF). 

Un module spécial avec un interrupteur et .une 
tige flexible se terainant par une petite laspe 


alisentée par pile, vous persettant d'utiliser - 


votre HP41 la nuit (BME 3O0FF). 

Des étuis de taille diverse pour La HP4i et une 
extension, des catalogues réunissant sur chaque 
page plastifiée de quoi réunir une feuille de 
progragne et une ou plusieurs cartes aagnétiques 
dans leurs cospartisents (40FF), 

Tous ces gsatériels sont distribués en France 
seulement par des clubs ou quelques 
distributeurs spécialisés, et un seul ou deux 
sodèies (extensions de oorts et iaprisantes) 5e 
vendent dans certains sagasins. 

Au niveau des Clubs, aoyennant forte finance, 
on vous aodifie HP4l: accélération de lecture, 
sodification de la batterie, led de vérification 
de charge, insertion de aodules (jusqu’à 7), 
couplage de sodules, interrupteur de toute 
connande (ALL RESET), insertion sur les côtés 
gauche et droit de la boucle HPIL, 

Beaucoup de livres sur la HP41, en langue 
étrangère à des prix élevés (le dollar de papier 
isprigé iaporté revenant parfois à 15FF). 

Quverts à tous, les Clubs font toutefois des 
reaices à leurs seabres, Les prix et les aodèles 
étant très variés, se renseigner aux adresses 
ci-dessous: 


- SICAPE, 122 avenue de la république, 94120 
FONTENAY SOUS RDIS, Tél: (1) 887 38 16, 

- PPC-FRANCE, 56 rue Jean-Jacques Roussseau, 7500! 
Tél: (1) 233 87 73. 

- EDITIONS DU CAGIRE, 77 rue Cagire, 31100 
TOULOUSE, Tél,: 18 (61) 44 30 06. 


Philippe TENAND 


JPC n26 page 22 


Prograsse "MAJ-MIN" 


Ce Oprograsse vous perset de convertir un 
fichier texte tapé en #ajuscules dans l'éditeur 
en minuscules. 


RESTRICTIONS: Pas de m#ajuscules en début de 
ligne. Cependant, il tient cospte des points et 
place une sajuscule derrière, Ce programs est 
assez long d'exécution et desande à étre 
optimisé tant au point de vue vitesse qu’au 
niveau possibilités. toutes Les suggestions 
seront les bienvenues. 


Le sode d’eaploi est assez sisple, Lancer 1e 
programse et répondre aux questions, Si vous 
désirez partir d’un caractère donné, placez Île 
pointeur à l'endroit désiré (SEEKPT), puis 
EE 00, 


OLYLBL "HAJ-HIN" 
02 “FICHIER” 
03 ADN 

04 PROMPT 
05 AOFF 
(6, 

07 SEEKPTA 
OBYLBL OÙ 
09 RELPT 
10 SF 25 
11 GETREC 
12 FC2C 25 
13 670 03 
14 SF 25 
15 SEEKPT 
18 FC?C 25 
17 XER O1 
18 ATDX 

19 CLA 

20 XTDA 

21 65 

22 XV? 

23 6T0 02 





24 CLX 

25 91 

2b X(Y? 
27 6T0 02 
28 RDN 

29 32 

30 + 

31 CLA 

32 XTDA 
33 1 

34 DELCHR 
35 INSCHR 
36 610 00 
374LBL 01 
38 RELPT 
39 INT 

40 SEEKPT 
41 GETREC 
42 SEEKPT 
43 RTN 
44iLBL 02 
45 XCY 
46 4b 

47 X=Y7 
48 ,002 
49 ,002 
Jo X4Y? 
51 ,001 
52 RELPT 
53 + 

54 SF 25 
23 SEEKPT 
56 FS2C 25 
57 670 00 
38 RELPT 
99 INT 

80 Î 

bi + 

62 SF 25 
b3 SEEKPT 
b4 FS2C 25 
b5 GTO 00 
bbiLBL 03 
67 BEEP 
6B END 


Prograane "BLST" 


Ce progranse calcule les différents parasètres 


dans un problèse de balistique. 


MODE D'EMPLOI: Lancer le prograase, introduire 
les données, passer l’inconnue par R/5 puis le 


prograaae fait le reste. 


O1#LEL *BLST* 
02 DE 

03 CF 28 
04 SF 29 
05 CF 00 
08 CF Qi 
07 CF 02 
08 CF 05 
09 CF 04 
10 CF 22 
11 *Y=2" 
12 PRONPT 
13 F57C 22 
{4 SF 00 
15 ST0 01 
18 "X=7" 
17 PRONPT 
18 FS7C 22 
19 SF 01 
20 STE 02 
21 "6=7" 
22 PROMPT 
23 F57C 22 
24 SF 02 
25 ST0 03 
28 "V0=7" 
27 PRONPT 
28 FS?C 22 
29 SF 03 
30 STO 04 
31 "4 =?" 
32 PROMPT 
33 F52C 22 
34 SF 04 
35 STO 05 
36 FC? 01 
37 GTO 02 
38 FC? 02 
39 670 03 
40 FC? 03 
41 6T0 04 
42 FC? 04 
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43 670 05 
44$LBL 01 
45 REL 03 
4b XE0 CB 
47 } 

48 REL 02 
49 72 

20 À 

sl XEB 09 
52 + 

gs "Y=" 
J4 ARCL X 
9 PROMPT 
SbELEL 02 
ü7 RCL 03 
JB XEO 0 
59 / 

60 RCL 05 
bi TAN 

62 RL 01 
ë3 CHS 

64 XEB 06 
65 “X1=" 
hb ARCL X 
&7 PROMPT 
68 X=Y7 
69 RTN 

79 "X2=* 
71 BREL 
72 PROMPT 
73HLBL Q3 
74 YEB 10 
73 XER 8 
7h REL 02 
17 1*2 

78 / 

174 

80 "6=" 
81 ARCL X 
82 PROMPT 
BSILEL 04 
84 RL 05 
85 CDS 

86 X*2 

87 -2 

88 

89 RCL 03 
90 RCL 02 
91 42 
723 
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93 / 

94 XEZ 19 
gt 

96 "V0=" 
97 ARCL À 
98 PROMPT 
99HLEL 05 
100 RCL 02 
101 *2 
102 REL 03 
195 1 

104 RCL 04 
105 1*2 
106 -2 

107 À 

108 / 

109 RCL 02 
119 RCL Y 
ii REL 01 
117 = 

113 XEB 06 
114 ATAN 
115 XCY 
118 ATEN 
117 X<07 
118 XCY 
119 ‘4 =" 
120 ARCL À 
121 PROMPT 
1224LEL 10 
123 RCL 01 
{24 XEB 09 
125 - 

1286 RTN 
{27iLBL 08 
128 REL G4 
129 X°2 
139 KHEL 05 
131 COS 
132 X*2 
1351 

134 -2 

135 

136 RTN 
1374LBL 09 
138 RCE 05 
139 TA 
145 RCL 02 
1413 

142 RTN 


1434LBL06 
144 XCY 
145 X*2 
146 -4 

147 R° 

148 STH Y 
149 R° 

150 ST# 7 
151 R° 

152 5T+T 
133 XC L 
154 CHS 
135 STO Y 
156 R° 

157 (0? 
158 GTO 07 
159 SORT 
160 + 

161 XOY 
162 LASTX 
163 - 

164 LASTX 
165 XQT 
166 ST+ X 
167 ST/ 1 
168 ST/ Ÿ 
169 RDN 
170 RTN 
171LEL 07 
172 “PAS DE SOL* 
173 PRONPT 
{74 END 


Prograame *TI-COR"* 


Ne voulant pas entrer dans le débat de 
l'utilité de l'heure d'été, je vous propose 
siaplenent un progranse vous peraettant de 
régler avec précision l'horloge de votre 
sachine. Il peraet en outre un délai plus court 
que Ja norsale pour détersiner le facteur 
d’exactitude avec une are précision puisque 
l'heure juste est préalablesent ajustée dans le 
chronoaètre, 


Introduire l'heure, lancer le progranse. Si 
cette heure n’est pas tout à fait juste, sortir 


1 
1 
: 
: 
; 
1 
: 
: 
: 
1 
: 
: 
+ 
: 
: 
1 
i 
i 
ï 
1 
i 
1 
3 
: 
1 
ï 
+ 
ï 
: 
! 
: 
: 
; 
1 
} 
1 
: 
: 
ï 
1 
1 
! 
1 
! 
1 
1 
1 
i 
1 
1 
! 
: 
t 
: 
! 
1 
1 
! 
1: 
1 
1 
1 
! 
! 
: 
; 
! 


du aode chrono. Introduire la modification comse 
pour "T+\", etc... 


Le réglage effectué, appuyer sur "C*, et voilà, 


OL#LBL “TI-COR* 
02 SF 27 
03 RUNSH 
(4 SETSH 
05 5h 

06 STOP 
074LELO0 
08 ENTER* 
09 ENTER 
10 RELSH 
11 HNS+ 
12 4 E-5 
13 HNS+ 
14 SETSH 
15 5h 

16 RDN 

17 STOP 
18 6T0 00 
IYHLBL C 
20 RELAF 
21 RCLSK 
22 CORRECT 
23 XC>Y 
24 RCLAF 
25 END 


Bonnes Vacances à tous, 
Christian MORLOT 


INVERGION DU REGISTRE C 


But: inverser le registre “C" du aicroprocesseur 
de notre chère HP41, pour réaliser une inversion 
vidéo, par exemple. 


Utilise: 
C et A(2) 
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P ou 8 {le pointeur actif) 


Note: les octets de valeur supérieure à 128 ne 
peuvent étre inversés, 


Heureuse Prograsñation 


Pierre ANTOINE LU js a 172 


- 
AC EX k 1 Ko 
PT =2 1 
LE & i 
AC EX N fée À Kvo VYEE Gi 
RER 2? (Début de la boucle d’inversion)  ! P 
CST EX É — LU >) | 
57 =1 MESÂACE HU | 
CST EX Ë 4 {} Î 
A=A-1 S i \\ me / 
GONCI -5 (fin) ï É \ \ v D 119 
RTN PC Pr 
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HP 771 


PPC-PARIS 
Jean-Jacques MOREAU 
Michel MARTINET 
Jean-Jacques DHENIN 
Olivier ARBEY 
Pierre DAVID 
Jean-Jacques MOREAU 
Jean-Jacques DHENIN 
DAVID/MARTINET 


Christian BACHELET 


BASIC 


Jean-Marie SIMON 
Philippe GUEZ 
Jean-Pierre BONDU 
Laurent ISTRIA 
Jean-Claude FOURES 
Laurent SERANO 


Xavier BILLE 


LE COIN DES 


PPC-Paris 


RSSEMBLEUR 7 FORTH 


Renumérotation des Tokens 

Une répétition à votre mesure 
MARGIN 

MENU 

Nombres premiers en assembleur 
Histoire d'impressionner 

Gestion de touches en assembleur 
INDATE 

(Suite) 


Formattons, formattons !! 


VLIST 


Navigation 

Utilisation de la table traçcante X71Q 
À propos de DISP$ 

SUPREM 

Tri d'une table 

Compte bancaire / Compte téléphonique 


Caractères Ethiopiens 


LHE X 


Récapitulatif optimisé et les Lhex du mois 
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JPC 


LA RENUMEROTATION DES TOKENS 


Dans la salle de rédaction de JPC, au silieu 
des téléscripteurs, des kilos de giga-octets sur 
disque-dur interfacé HPIL, un cri jaillit soudain: 
"Trop, c’est trop !* 

En effet. La situation ne pouvait plus durer. 
L'anarchie régnait parni les bits. 


Depuis le numéro de Février 85 de JPC, chacun 
faisait ses Lex dans son coin, sans 5e 
préoccuper des autres, et surtout de leurs Lex. 
FH  s’ensuivit donc une nusérotation des tokens 
quelque peu erratique. Le procédé le plus fiable 
pour avoir Je aoins de chance d'entrer en 
conflit avec quelqu'un d’autre était de calculer: 
Token=1P (RNDS255) +1 

Si nous avions laissé faire, la situation 
serait devenue invivable, 


Il fallait donc réagir vite. La solution que 
nous avons adoptée vous causera peut-être 
quelques tracas, mais songez aux désagrésents 
que cela vous aurait causés si la décision avait 
été prise en déceabre 1985, ou plus tard encore ! 


Désormais, tous les Lex qui paraitront dans le 
journal seront nunérotés d'office par nos soins. 
Tous les prograsses BASIC qui nous parviendront 
devront, s'ils utilisent des Lex, être transais 
avec les bons nuréros de tokens. 


Ceci entrainera peut-être quelques soucis, mais 
le jeu en vaut la chandelle. Désorsais, il n’y 
aura plus de conflits, PPC-PARIS gérera tout 
cela pour vous... 


Assenblez bien ! 
PPC-PARIS 


TOKENS: 

NOUVELLE ANCIENNE 

APPELLATION: APPELLATION: 
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113001 ADBUF# 
113002 ASC$ 
113003 ATH$ 
113004 HTA$ 
113005 RED$ 


113008 REPLACES$ 


XFN 113007 FILE? 


XWORD 113008 ATTN 
XWORD 113009 DISABLE 
XNORD 113010 ENABLE 
XWORD 113011 FKEY 
XFN 
XHORD 
XFN 
XFN 


113012 CONTRAST 
113013 INVERSE 
113014 INV$ 
113015 PAINT 


XFN 
XNORD 
XFN 


113616 ENDUP$ 
113017 ENDUP 
113018 STARTUPS$ 
XWORD 113019 CHDI6 


XFN 
XFN 


113020 ARR 
113021 COMB 


XFN 
XFN 
XFN 
XFN 


113022 HMS+ 
113023 HNS- 
113024 HMS 
113025 HR 


XFN 113026 XERR 


KWORD 113027 STACK 
XWORD 113028 REPEAT 
XWORD 113029 MARGIN 
XFN 113030 PRIK 


XFN 
XFN 


113031 CURSDOWN 
113032 CURSKEYS 


XFN 113033 MENU 


LEX DESAL 


LEX REPLEX 


LEX FILELEX 


LEX ATTNLEX 


LEX DRIVELEX 


LEX FKEYLEX 


LEX DESLEX 


LEX ENDUFLEX 


LEX CHDI6LEX 


LEX COMBARR 


LEX HMSLEX 


LEX XERRLEX 


LEX STKLEX 


LEX REPEAT 


LEX MARGELEX 


LEX PRIMLEX 


LEX ONKEYLEX 


LEX MENULEX 


092001 
092002 


092003 
092005 


XFN 092008 
XFN 092240 
XWORD 092033 


XWORD 092040 
XWORD 092041 


XWORD 092034 


XFN 092020 
XWORD 092021 
XFN 092022 
XFN 092023 


XFN 092230 
XHORD 092231 
XFN 092232 
XWORD 093130 


XFN 
XFN 


093018 
095019 


XFN 
XFN 
XFN 
XFN 


092060 
092061 
092062 
092063 


XFN 093128 


XHORD 092050 


XFN 113034 CENTERS 
XFN 113035 CESURE 

XFN 113036 FORMAT$  . 
XFN 113037 REDUCES  . 
XFN 113038 SPACE$ 


LEX FORMALEX 


XWORD 113039 BELL 
XWORD 113040 BOLD 
XHORD 113041 CR 
XFN 113042 ESC$ 
XNORD 113043 FF 


LEX PRINTLEX 


XWORD 113044 LF : 
XNORD 113045 MODE . 
XWORD 11304b PERF : 
XHORD 113047 PL . 


XWORD 113048 UNDERLINE 
XWORD 113049 WRAP 
XFN 113050 INDATES  LEX INDATLEX 


NOTE: Je LEX DESAL possède en 
fonctions et ordre suivant: 


plus les 


XFN 001063 PEEK$  ) Ne tenant pas conpte des 
XNORD 001064 POKE } zones privatisées (PKLEX) 
XFN 082001 KEYWAITS Hewlett-Packard 
XFN (082012 REVS Hewlett-Packard 


BUFFERS: 


A00 bENDUP 80B 


RESERVED RAM 


2F98b 
2F987 
2F988 
2F989 
2F98A 
2F98B 
2F98C 
2F98D 
2F98E 
2F98F 
2F990 
2F991 
2F992 
2F993 


HATHRON 
HARGIN 
NARGIN 
REPEAT 


SSS0S0S SES mm me © CA 
06062220 Smm mr © h 
0662006006 Omme me © 


SSD be pe CO De 


2F994 0 0 0 0 
2F995 0 6 0 0 
2F99b 0 0 0 0 
2F997 ü 0 0 © 
2F998 0 0 0 0 
2F999 0 0 © © 
2F99A 0 0 © © 
2F99B 0 0 0 © 
2F99C 0 0 0 0 
2F99D 0 0 0 © 
2F99E 0 0 0 0 
2F99F 0 0 0 © 
2F3A0 0 0 0 0 
UNE REPETITION À VOTRE MESURE ! 
Ceux d’entre vous qui ont coutuse d’utiliser de 


nombreux LEX se sont rendus cospte qu’alors la 
saisie des touches au clavier de leur 71 était 
soins rapide que de coutuae. D’autres ont pesté 
lorsqu'il leur a fallu sodifier des lignes de 96 
caractères dans un progasae BASIC: le curseur ne 
pouvait étre déplacé aussi rapidenent qu’on le 
désirait. Tel le reaède du prof. DESCAMPS, la 
fonction REPEAT vient à paint nosaé. Désoraais 
vous n'aurez plus à réfléchir pendant des heures 
entières pour trouver la série d’ordres DISABLE 
qu’il faut envoyer à votre 71 pour retrouver 5on 
contrôle, et qui de toute façon ne aarchera pas. 
Grace à la fonction REPEAT vous pourrez être 
fier de posséder un clavier qui ressesble à 
celui d’une TI-.. usagée, Que ceux qui 5e 
seraient effrayés du haut niveau de technicité 
de cet article le relise un certain nosbre de 
fois avant de passer à la suite. Nous leur 
rappelons d’ailleurs qu'un entraïnesent régulier 
au prograsne de DAO paru dans le JPC du mois de 
juin 85 est grandement souhaité. 


rebuté, 
Tapez 


Si les lignes précédentes vous ont 
faites-en fi et rentrez le LEX REPEAT, 
alors ce qui suit: 


REPEAT 0 
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JPC 


Bppuyez maintenant sur une touche (Par ex.: À) 
et saintenez la enfoncée, Essayez aussi: 

REPEAT 15 

REPEAT -1 

REPEAT 17 


Le paramètre de la fonction REPEAT redéfinit le 
teaps de répétition d’une touche, Le paramètre 
de la fonction REPEAT doit être réel et coapris 
entre O0 et 15. Tout autre type d’argusent 
provoque une erreur (ERR xxx: ..,), L’échelle 
adoptée va donc de 0 à 15 (1 quartet). 


Jean-Jacques MUREAU 


NOTE DE LA REDACTION 


IMPORTANT: Le Lex REPEAT prend le FOLL pWIKY et 
doit donc toujours se trouver en dernière 
position dans votre systèse. 


LEX  ?REFEAT” 


ID #71 

HSE 0 

POLL  POLHND 

ENTRY REPEAT 

CHAR  #D 

KEY  ’REPEAT’ 

TOKEN 28 
EXPEXC EBU  #0F186 
SLEEP EQU  #00602 
RNDAHX EBU  #136CB 
IVAERR EQU  #0E920 
RESERV EQU  #2F986 
MPY EQU  +0ECBB 
CKSREB EQU 400721 
FIXDC EU  #05493 
FIXP  EQU  #02A6E 
POPBUF EQU  #010FE 
NUTSTN EQU  #0BA48 
SFLAGS EQU  #135FA 
SFLAGC EQU  #15601 
SFLAG? EQU  #1364C 
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USRSTA EGU  401B80 
BLDDSP EQU 401898 
SETTNO EQU  #13158 
ALHGRV EQU #1257D 
RCRSTK EQU  #4014DD 
RSTKCR EBU  4014AB 
DEBNCE EQGU  #00CF7 
KEYBUF EU  #2F444 
IDIVA EQU  #0EC6E 
KCOLO EQU  #42F46F 
TIMERI EQU  #2E3FB 
KEYPTR EQU  42F445 
FORSTK EQU  #2F39E 
DELAYp EU  #02AC6 


#THOUT EQU #5 
FIRPTD EQU 405 
KAOFF EQU #65 
pRTKY EEU  #iC 


ENDTAT 
SÉSLITINSENSNNENEARNNLILSNSANNANSENNENANSENNELETE 


t Routine d’interception de poll 
DRSRÉNLENLETANLENNNENTISENNNENSENESENEENNTEES 


FOLHND 

LC(2) =pNTKY 

28=C B S'agit-il du poll envoyé 
f lorsque le 71 est en aode 
{ d'édition ? 

GOYES KEYR Qui: il faut scruter le 
t clavier 

RTNSXH Non; le poll envoyé ne 
f nous concerne pas 


DÉRSSANANINNENNSENNLNTNTENANENNENENN ENT SNNNATTE 
{ Routine KEYR 

t Cette routine scrute le clavier: elle attend que 
t l'on appuie sur une touche, puis place le code 

à de la touche sur laquelle on a appuyé dans R0(B) 
f KEYR boucle indéfinisent sur elle-mése si l’on 

t n’appuie sur aucune touche. 
LESESRNTENANNENN ANTENNES NANTES ANETNNANSERETEX 


KEYR 
P= ‘ Sauvegarde en RAM les 5 
t derniers adresses placées 
t dans la pile de 


GOSBVL =RÇRSTK 
GOSUB RPTKY 


Retour (RSTK) 
L'action d’une touche 


Î doit-elle se répéter ? 
G0C  DEFKY Oui; on retourne le code 

ï de cette touche a la 

î routine qui à éais le pol 


GOSBVL =USRSTA Construit l'affichage 

j pour qu’il soit la 

Î réplique du buffer d’écran 
GOSBVL =BLDDSP 


60SBVL =SETINO Autorise la mise 


î hors-tension du 71 au bout 
Î de 10° si pendant ce teaps 
1 Aucune touche n’a été 

f pressée 


HÉNANTEANNNNNENETERNNESNANESSRNNNEESTNNNESRENTISE 
# Début de la boucle infinie 
ÿ Elle est du type: 


t  00D0 

$ TRY-TO-SLEEP 

j KEY? IF LEAVE THEN 

Î TIMED-OUT 1F LEAVE THEN 
{ LOUP 


RLANNNNNNNNNENNSEESERENNTNAATARENNEN ANNE TAETARE 
KEYRIO GOSBVL =SLEEP Place le 71 dans un état 

{ de faible consoamation 

Î d'énergie. Ne retourne 
î Que lorsqu'une touche a 
Î été enfoncée ou lorsqu'une 
Î alarae vient à terse 
0 
f 


G0C  KEYRSO Nous sosses dans ce 
dernier cas si carry est 
Î araé 
GOSEVL =POPBUF et dans le ler si elle 
î est désaraée 
DEFKY C=B À Place le code de la 
Î touche en C{B) 
DEFKY+ RO=C puis en RO 
P= 4 Restaurons les 5 adresses 
t précédenaent conservées en 
Î RAN 
GOSBVL =RSTKÇR 
XH=0 et indiquons que le 
f pol-process doit 5e 
; terainer 
RTNCC 
KEYRBO GOSUB USRRER Vérifie qu'aucun 
Î périphérique n’a besoin 
i d’aide 
GOSBVL =ALMSRV Vérifie qu'aucune alarse 
f n’est à terme 
2ST=0 ={TMOUT 10’ sans activité ne 5e 
Î sont-elles pas écoulées ? 
GOYES KEYRIO Non; essayons de nouveau 
Î de nous endorair 
LC(2) =k#OFF Qui; faisons coame 5i 


Î quelqu'un avait appuyé sur 
Î la touche OFF (f ON) 
GONC DEFKY+ (B.E.T.) 


HÉRSARNANNSTETSNNNN NE NSSENNENNSEENNNNARSENRTS ET 
t Routine utilisée par KEYR et RPTKY 
HENARENENNNESRENNNNNNNESSSNRASEERANTSEANNTATEE 
USRRER GOSBVL =USRSTA 

GOVLNG =CKSREB 


RRRARTESSINANNNENNNNSENNESSANSSSNNASRTANRE SES ET 
t RPTKY est une routine HP. Je n’en ai nodifié que 
t le début. Seule la partie aodifiée sera 

t cossentée. Référez-vous aux IDS 3 pour la partie 
f non consentée. 


t 
à Aigorithae siaplifié: 

ÿ Si une touche cosaence seulement à répéter son 
{ son action (#IRPTD abaissé) 

f alors on attend un teaps T avant que cette 

{ cette action ne 5e répète 

ÿ$ puis on arae fIRPTD 

t Si la touche a déjà répété son action 

t on n'attend pas avant de répéter son action 

4 Si l’on appuie sur une nouvelle touche 

t alors on désarae #IRPTD 
LÉNANNNNNINNENNNASSEENSNNNNNNNANENTSATERETARTERET 


RPTKY 
LC(2) =#IRPTD 
GOSBVL =SFLAG? L'action de la touche 
j s’est-elle déjà répétée ? 
LCHEX 700000 
60C  RPTKIO Qui; on n'attend pas 
Î avant de répéter de 
Î nouveau celle-ci 
RO=C Non; on attend un teaps T 
î avant de répéter la-dite 
t action 
B=0 Ce teaps est calculé à 
ï partir d’un paramètre P 
{ défini par l'utilisateur 
C:0 N T=PY15 (T est exprimé en 
t ticks; t=1/512 donne ce 
Î teaps en secondes) 
D0=(5) (=RESERV)+#3 En fait on a stocké 
f le cospléaent à 15 de P 
C=DATO P 
C=-C-1 P Ji faut donc prendre le 
î coapléasent à 15 du noabre 
Î stocké 
A=A-1 P Puis le aultiplier par 15 
GOSHVL MPY 
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RPTK10 


RPTK20 


RPTK30 


RPTK40 


RPTKCC 


THRRST 


RPTK45 


RPTK47 


JPC 


C=RO 

ÿ 

Î 

C=A 
G0SUB 

f 
LC(2) 
GOSBVL 
P= 
GOSBVL 
D1=(5) 
A=0 
A=DATI 
A=A-1 
C=0 
LC (2) 
GOSBVL 
P= 
LC{S) 
C=C-B 
Di=C 
C=DATI 
LCHEX 
A=ARC 
A=A-1 
60C 
C=C+C 
60TO 


Enfin on place le 
résultat dans C(5-0) sous 
la forae: 

B 700007 

WRTTMI La routine ci-dessous est 
cossentée dans les DS 3 

=fIRPTD 

=SFLAGS 

8 

=DEBNCE 

{=KEYBUF)+2414 

À 


4 
IDIVA 


S Mes D DZ 


KCOLO 


D 


X5 


RPTK40 


C=C+C 5 
60C 
LC(2) =#fIRPTD 
GOSBVL =GFLAGC 

C=0 N 

C=C+1 XS 

GOTO NRTTHI 

D0=(5) (=TIMER1)+5 
D1=(5) =KEYPTR 

A=DATO P 

LCHEX 7 

2A=C P 

GOYES RPTK47 

GOSUB THRRST 

DO=(5) (=KEYBUF)+2414 
A=DATI XS 

2A#0  XS 

GOYES RPTKCC 

A=DATO B 


B=0 
B=A 
RTNSC 
A=DATI 
2AHO 


À 
B 


XS 
xs 
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GOYES RPTKCC 
GOSUB USRREB 
GOTO  RPTK20 


HRTTHI 
DO=(5) =TIMERI 
P= î 
DATO=C 6 
A=DATO & 
2A=C WP 
GOYES MWRTTHX 
DATO=C à 
WRTTMHX P= û 
RTNCC 


LESSENATNNSANNASENNSNNNTENEANNNNTENNENRN TE RENTEAS 

t REPEAT stocke le parasètre P défini par 

f l'utilisateur sous la forae de son cospléaent à 

#15 { conplésent(P)=15-P ). Ceci est dû au fait 

t que lorsque la séaoire est réinitialisée, la 

t valeur par défaut de P est zéro (0). Or il est 

t difficile d'utiliser le clavier lorsque l'option 

t REPEAT 0 est active. Si par contre on stocke le 

t stocke le cosplésent à 15 de P, la valeur par 

à défaut lors d’une réinitialisation ne sera plus 

t zéro (0) sais quinze (15-0). 

RÉLÉNERSNNANSRNNSSSNNNANEENSSNNNANANNNNNAAATEEIS 
REL(S) fixdc 


REL{S) fixp 


REPEAT (Exp. nus.) 


REPEAT GOSBVL =EXPEXC Evalue l'expression 
{ suivant l’ordre REPEAT 
GOSBVL =RNDAHY convers. en hex dans AA) 
GONC  ivaerr 
C=0 A erreur si }ij 
C=C-1 P 
2C0)<A À 
GOYES REP10 
ivaerr GOVLNG =IVAERR 
REPI0 A=-A-1 P Stocke dans la "Reserved 
t Ran” (Méaoire réservée par 
$ HP pour une future 


D0=(5) (=RESERV) +3 


i 
DATO=A P 
GOVLNG =NXTSTH 


utilisation) le 
coapiéaent à 15 de P 


REREALNNSENNSNNSNNTNSANANERASEANNENENNNTENSEEAAN 
t NOTE: 

t Toutes les routines utilisées par REPEAT sont 

t supportées par HP. Néanaoins, cet ordre utilise 
t aussi une partie de la "Reserved Ras” qui ne lui 
t est pas allouée en propre. En conséquence, des 


à conflits peuvent éventuellesent avoir lieu entre 
4 le Lex REPEAT et d’autres Lex. C’est pourquoi 

Ÿ nous vous cosauniquerons en tesps utile 

à l'adresse de la partie de la "Reserved Ras” qui 
Ÿ nous sera allouée. 
SENSDIENNSNNNINANNNRSNNT EEE ENNENRNNENSERSENEASS 


fixde 
#ixp 


GOVLNE =FIYDC 
GOVLNG =F1XP 


END 


HARGIN 


Le HP75 et le HPI50 possèdent l’ordre MAREIN. 
Aujourd’hui c’est chose faite, le HP71 aussi 
peut “Beeper* lorsque le curseur 5e trouve à une 
certaine position. 

Syntaxe: MARGIN { (exp. nus.) }) 


Le HP7IB ajuste la position de la marge en 
fonction du paramètre numérique. 


Michel MARTINET (51642 P#12 CHHUB417) 


LEX  ‘MARGELEX” 


Ib #71 
MEG 0 
POLL  POLHND 
ENTRY MARGE 
CHAR #4) 
KEY  *MARGIN’ Syntaxe: MARGIN N 
TOKEN 29 
ENDTAT 
pWIKY EEU  #HiC Poll intercepté pour la 
Î sargination. 
RESERY EDU  #2F988 Le Lex utilise un octet de 
j la “RESERVE-RAN* pour 
Î conserver la valeur de ls 
j aerge, à l'adresse 
i IREVSERV) #1. 


CURSOR EQU  #2F47E Octet donnant la position 
f actuelle du curseur (0à95) 
CHIRP EQU  #0ECSA Enet le BEEP d'erreur du 
i systène d'exploitation. 
EXPEX- EQU  #0F178 Cette routine peraet de 
; placer le parasètre 
î suivant MARGIN sur la Math 
Î Stack. 
RNDAHX EBU  #136CB "POP", teste et transforae 
f une expression 5e trouvant 
ï sur la Math Stack en un 
î noasbre hexa. dans A(A) 
NXTSTH EQU  #08A48 Fin d'exécution de l’ordre 
ï HARGIN. 
FIXP  EQU  #0246E  Routine de coapilation de 
i l’ordre. 
FIXDC EQU 405493  Routine de décoapilation 
Î de l’ordre. 


HENIENÉNNNSENNNSESTENSNNESNNNNNNTNTANANSERRRTERE 
t FOLHND 
t But: intercepter le poll pWIKY, tester la 
$ position du curseur et faire un BEEP si elle 
t concorde avec la valeur de la marge. 
SATALSNANANNNSNSSANANANSNSNSNSNSNTENSNNENTNTENY 
POLHND LC(2) pWIKY On charge dans CB) la 

Î valeur du poil “pNTKŸ" 


9B=C B Est-ce celui-là ? 
GOYES POLL Si oui: on branche en POLL 
RTNSIM Autresent: fin d'exécution 


ÿ I] existe deux sortes de POLL: les "sion poils" 
$ et les “fast polis" ou FPOLL. 

Î 

ï iors de l'éaission d'un FPOLL, le système ne 

t prend aucune précaution pour préserver son 

ÿ environnesent. Îl est donc ispératif de sauver 
ï le contenu de D) 


POLL  C=D À 
R3=C Sauvegarde. 
Di={5}) 1+RESERV D1 * l'endroit où est 
Î stockée la aarge. 
A=DATI B A(B) = sa valeur 
Di={4) CURSOR Di * CURSOR 
C=DATI E C{B) = position du 
f curseur | de 0 à 95 ). 
?CH8 B La position du curseur # 
ï gargination ? 


GOYES rtnsxe 
GOSBVL CHIRP 
C=R3 


Si oui: fin d'exécution. 
Butresent on alerte... 
Restitution de Di) 
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Fr 


Î conservé plus haut dans 
j R3 (A) 
DE À Ok 
RINEXN On n’intercepte pas le 
: PaLL. 
REAAIRENENNARENEA TIRANT SENS ANSNNNNNTTSRNTÉ 
| ï MARGIN # 
LÉSSSTENANESENSNETENENNNENSNEENARNTARENNERENERT 
| REL(®) HANPES | 
A REL (Si MÉRGED 
| MARGE 6G52YL EXFEE- “Collapse” La Math Stack 
Î et y dépuse le paraaètre. 
GOSBVL RNDAHY  *POP*, teste et convertit 
f l'expression en yn nombre 
Î HEXA dans AA), 
GONC OSetA?20 Si l'expression est € 0, 
Î on get 0 par défaut. 
7840 À Si l'expression €} 
GOYES Maxerg On passe au test suivant, 
SetA20 A=0 À 
Naxarg LC(2) 96 On charge dans C(B): % 
2C}=h B L'expression (= 94 7? 
GOYES Setarg Ok: Seisrg. 
AC À Autresent: on piace 96 
î par défaut, 
Setarg Di=(5) 14+RESERV D1 * (RESERV) +) 
A=A-1 À On décrésente pour 
Î cospatinilité avec CURSUR 
DATISA B Sauvegarde de la marge 
ï dans (RESERV)+! 
EDVLNG NITSIN Fin d'exécution .... 
MARGEp BOVLNB FIXP 
MARGEd GOVLNS FIXDC 
END 
HENU 
MENU affiche les élésents d'une liste DATA, un à 
un suivant l'utilisation des flèches © v $ y 
La pression de ia touche Endline renvoie le 
nuséro d'ordre de la DÉTÉ affichée, 
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; © ORDRE e Exécution au clavier 
 & Fonction o Mode CALC 
i 0 Opérateur a 1F...THEN..,ELSE 


=———_—_—_—_— mem cer eue ee me me ee ee me dmme 2 0 ou 0 0 0 no 0 me ee me où 


fenb MARIÉES ere } 1-} 
-—- DATA | 


EXEMPLES 

MENU (A,B) X = HENU (A,B) 

MENU (4) DISP *ESSAI: ?; € X = HENU (4) 
MENU (A,B) ON MENU (A,B) G6NTD 169,260, 395 
à Elégents : Description 1 Restriction 
 Maxiaun ! Expression nusérique 

i : indiquant le nombre : 

i i-d'élésent du aenu,. : 

| ms... 3 sens assasamsse ; { 233 

1 Entrée : Expression nusérique i 

1 : indiquant le nuséro : 

i i d'ordre du preaier : 

i : élément visualisé. : 

COMMENTAIRES 


Le premier élésent visualisé par MENU est spéci- 
fié per le 2ème paramètre, Les élésents sont 
cosptés à partir du début de la ligne contenant 
les DÉTA. La pression des flèches * v * v faci- 
lite le déplacement à j’intérieur du senu, Si 
l'on essaie d'accéder à plus d'éléments que n’en 
contient les DATA, il en résulte une erreur 
NO DATE, L'ordre RESTORE est uiilisable pour 
spécifier le début de la liste nes élésents. 
L'expression contenant MENU respecte l'affichage 
d’une expression précédente qui s’est terminée 
par un déliaitateur (,) ou (;). Aucun aessage 
n'est affiché par défaut. 


STITRE PPCPC 
SttStENNNNNNN NANTES NNNtENNANES TR HENERE 
SEITIT ISSN RIM ANRT ÉNLÉRNINENSSENTENNALES 
HE 
1t hon: NENU - Affiche les éléments de DATA et 


tt renvoie le nuaéro de l’élément 
ti retenu par Endline, 


it Catégorie: Siaplification de prograane. 
tt 


ft Propos: Menus arborescents 


ft 

ft Entrée: 

it 

tt Sortie: 

ft 

ft Utilise: Voir le début du source. 

fi 

ft Stk lvls: 7 

it 

tt Algorithne: 

ft Lit le premier parametre R3(-- ler paras 
ff Si { seul paraëètre 

ft ï alors le deuxièae paramètre vaut | 
ff i par défaut. Goto À 

it à Sinon lit le 2ème parasètre 

ft A) Construit R3: Max(5,41 Elel3,2] Cpt[1,0] 
it Sauve le nasque d'écran dans FUNCRO 

it Lit les pointeurs de programe BASIC 

ff  L) Construit l’affichage: XEB R 

LL Actualise le Cpt RSE1,0] 

ät  F) Attend La pression d’une touche: 

fi ATTN ---} quit 

fi DOWN ---} D : Elément suivant. Goto L 
LE UP ---} U : Elésent précédent. Goto L 
LE: TOP ---} T : Presier éléaent. Goto L 
if BOT ---} B : Dernier élésent. Goto L 
it EOL ---}E 

fi Autre --} F 


it E) Goto évalution d'expression NFRINI 

##  quit Ignore le calcul et passe au Staterent 
if suivant. 

#4 OR) Si le pointeur de DATA = 0 


it ‘ alors prendre le pointeur de début 
3 i de programse BASIC 

it Recherche les DATA 

ft Si pas de DATA 

it : alors erreur NO DATA 

ft Tant que le conpteur d’éléaents #0 
it ï Lit une DATA coapteur-1 

it Reconstitue le aasque d'écran 

fi Replace le curseur à gauche 

it Affiche la DATA 

it Efface la suite de l'écran. 

LE 

it Historique: 

ft Date  Prograsseurs Modifications 


ft ns mnmmmenemenmnnnn ne 
#t 05/07/85  dJ.D. Création du mot 

tt 12/07/85  Jd,D & Ji.M Qptisisation 

it 

LÉRSTNNAN NAN SNSSNNNNERENESANNENNS SN NENRRENTANERSS 
SESLENSNNLLTTNENNSNNNNSNENENSNSSANANÉNARSNANATENES 


Jean-Jacques DHENIN (SI6#5 P#177) 


LEX  ’NENULEX’ 
t TITRE : MENULEX Jean-Jacques DHENIN SIG#S 


i 336 12 05 
ID #71 
#56 0 
POLL 0 


2LINE EQU +#15275 
=ASRNS EQU  #0ED0A 
=ASLHS EQU  #0EDIB 
=BF2DSP EQU  #01C0E 
=CSLCS EOU  #1B435 
=CSRCS EQU  #1B4iB 
=CRLFND EGU  #0229E 
=CURSFL EEU  #151DF 
=DSPNSK EQU  #2F540 
=DATPTR EQU  #2Fb92 
=DSPRUF EQU 409725 
=HDFLT EQU  #iB31B 
=FUNCRO EQU  +#2F89B 
=FINDA EGU  #023E5 
=FNRITN2 EGU  #0F219 
=IVAERR EGU  #0E920 
=NFERR EGU 409395 
=NITSTM EQU  #08À48 
=POPBUF EQU  4010FE 
=PRGNEN EGU  #2F567 
=PRGENST EQU  42F562 
=PRSCKE EQU 407888 
=RNDAHX EQU  #156CB 
=RPTKY EQU  #152BA 
=SCRLLR EBU  #0212E 
=TKSCN+ EGU  #0BA6B 
=WINDST EQU  #2F471 
=k#ATIN EOU #28 

=k#-LIN EOU #68 

=k#B0T EQU #3 

=k#DOWN EQU #55 

=k#EOL EQU 426 

=k4TOP EQU #42 
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=kAUP EQU #32 
SRSSSAEASENNENNENS RENAN EEE SANSENNTESANNETET 


ENTRY senu 
CHAR 4#F 
KEY ?HENU”° 
TOKEN 33 
ENDTIT 


PARM GOSBVL =RNDAHX Convertir Reel sur MATSTK 


GONC INVPAR en Hex A(A) 

C=0 A 

C=C-1 B C(B)= FF 

?C>=A À Restriction à 255 
RTNYES 


INVPAR GOVLNG =IVAERR 


Read D0=(5) =PRGMEN Lisite de recherche 


C=DATO À pour les DATA 
DC À Copie PRGHEN dans D{A) 
DO=(4) =DATPTR 
C=DATO À Lit DATPTR 
2C40 À DATPTR=0? 
GOYES R1IO Non, alors UK. DATA 
DO=(4) =PRGNST Qui, alors utilise PRGMST 
C=DATO À 

RIQ DO=C 

RI A=DATO B Lit le token 
LEASC ”,’ 
2AC BE Est-ce une virgule? 
GOYES R20 Qui, alors les data suivent 
DO=D0- 4 
7440  P 
GOYES RI5 Non, alors pas de ligne# 
DO=D0+ 4 

RIS LCHEX Cb 


GOSBVL =TKSCN+ trouve le data staterent 
60C  R20 
GOSUB popbuf 
LCHEX 20 
MFERR; GOVLNG =MFERR 
R20 DO=D0+ 2 
CDOEX 
D0=C 
R2=C 
LEASE À 
B=C B 
LC(2) 13 
R60 
A=DATO B 
28=B  B 


=eNODAT Error: No data 


Sauve l'ad. du début de DATA 
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D DE D GE 


R80 


R83 


dsp 


GOYES R&Û 
D0=D0+ 2 
JA  B 
GOYES  Ré0 


C=RO 
C=C-i B 
RO=C 

2C40 B 
GOYES RII 


RI=A 
D1=(5) =FUNCRG 
DO=(5) =DSPHSK 
GOSUB dsp 
GOSBVL =CURSFL 
A=RI 

C=R2 

Di=C 

GOSBVL =DSPBUF 
GOVLNG =LINE 
C=DATI 4 
DATO=C K 
Di=D1+ 16 
D0=D0+ 16 

P= 7 
C=DATI WP 
DATO=C WP 

P= 0 

RTN 


Qui. Fin de la DATA 


Est-ce une fin de ligne? 
Non. Cherche encore 


Rapel des pointeurs 
Décrénente le pointeur. 
Sauve le pointeur. 

Est-ce la DATA cherchée? 
Non. Alors DATA suivante. 


Sauve le terminateur. 
Di pointe la sauvegarde, 


Curseur à gauche. 

Rappel le terainator. 
Rappel l’adresse de la DATA 
Di pointe la DATA 

Affiche la DATA 

efface le fin de ligne 


popbuf GOSBVL =CRLFND 


popb 


GOVLNG =POPBUF 


{ Début de l’exécution de MENU 


NIBHEX 8812 


senu G6O0SUB PARK 


#10 


Di=Di+ 16 
R3=A 

A=Q A 
A=A+I À 
C=C-1 5 
C=C-1 S 
60C #10 
GOSUB PARA 
Di=Di+ 16 
ARSEX 


CERS 
CSL À 
CSL À 


2 chaînes nun. { option. 
Lit et convertit le ler para. 


Sauve le parasètre 


Lire le 2ère parasétre, 


CA  B 
ADOEX 
GOSBVL =ASLHS 
ADIEX 
GOSBVL =ASLHS 
R4=A 
RO=C 
R3=C 
6OSUB pop 
NIBHEX 02 
NIBHEX FF 

pop C=RSTK 
DI=C 
GOSBVL =BF2DSP 
D0=(5) =FUNCRO D0 pointe la sauvegarde 
D1=(5) =DSPHSK 


GOSUB dsp 

AAFF GOSBVL PRSCKB Lecture des pointeurs BASIC 
GOSUB Read 

senuF  GOSUB popb Attend une touche. 


GOSBVL =SCRLLR 


aenuR G0SBVL FINDA 
CON{2) K#ATTN 
REL{3) quit 
CON(2) k#DOWN 
REL(3) aenuD 
CON(2) kUP 
REL{3) #enull 
CON(2) k#TOP 
REL(3) menuT 
CON(2) k#BOT 
REL(3) aenuB 
CON(2) k#EOL 
REL(3) aenuE 
CON(2) 0 
GONC aenuF 


CASE OF de la touche 


senuU C=R3 
C=C-1 B 
2C#0 B 
GOYES @+ 


aenuT C=RS 
C=0 B 
C=C+i B 
nt  RO=C 
R3=C 
G60TO #ÂFF 


nenuD C=R3 


1 
! 
1: 
1 
: 
1 
1 
: 
1 
! 
i 
1 
1 
1 
: 
: 
4 
, 
î 
E 
: 
1 
: 
1 
; 
ï 
: 
: 
: 
: 
: 
: 
1 
! 
! 
1 
: 
1 
3 
1 
1 
1 
: 
; 
: 
: 
; 
! 
i 
: 
: 
! 
1 
: 
1 
1 
: 
1 
ë 
: 
; 
; 
: 


A=C 
ASR 
ASR 
C=C+1 
?C<A 
GOYES at 


DD DBZ D 


senuB C=R3 
A=C À 
ASR À 
ASR À 
C:A B 
GONC a+ 


senuE 
GOSUB 
GOSBVL 
A=0 À 
C=R3 
A=CE 
60SBVL =HDFLT conversion flottant 
SETHEX 
C=A HN 
A=R4 
GOSBVL =ASRHS 
D{=A 
GOSBVL =ASRKS 


popbuf 
=CRLFND 


GOVLNG =FNRTN2 
quit GOVLNG =NXTSTA 
END 


um 0 00 0 0 0 en te 0 0 0 0 0 0 0 


NOMBRES PREMIERS EN ASSENBLEUR 


Vous n’en pouvez plus de savoir où Dase Nature 
a caché ses aythiques Nosbres Premiers ? Le 
PRINLEX est alors fait pour vous. Son but est de 
déterainer si un noabre N donné est premier. 


Si oui, PRININ) retourne N ; dans le cas 
contraire, le prograase affiche le prenier 
diviseur qu’il a rencontré. L’algorithae utilisé 
est bien sûr celui, classique, de la 
décoaposition en facteurs premiers, adapté à 
cette tâche précise. Conne vous l’imaginez, 
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quelques aséliorations ÿ ont été 
apportées, Ainsi, on évite les aultiples de 2, 3 
et 5 parai les diviseurs successivement essayés 
et on ne teste le caractère presier de N qu’à 
chaque entrée dans la boucle des diviseurs { BCL ) 
et non pas à chaque utilisation de la 
sous-routine TEST, testant si N est divisible 
par le diviseur essayé. 


Au chapitre des performances, les résultats 
obtenus a’ont paru un peu décevants car le gain 
en rapidité n’est que d’un rapport d'environ 3 à 
1 par rapport au aëse prograase écrit en BASIC. 
Ainsi, 82646281 est "décosposé" en 9091 # 9091 
en à peu prés 29" 21/100 contre 87* 8/100 pour 
la version BASIC, et le caractère premier de 
9999999987 est identifié en environ 3 45" 
contre 16” en BASIC: rien de bien transcendant, 
conse vous pouvez le constater, 


Pour conclure, des dix jours d'Enfer vécus pour 
l'écriture de ce LEX, j'ai pu dégager deux 
Règles fondasentales concernant l'écriture d’une 
routine assesbleur, Règles que je vous livre 
pour votre édification personnelle : 

2) Au Plus Inattendu Le Prograsse Plantera. 

3) Le Plus Siaple En Premier Délirera. 

{la Règle 1 est réservée à aon usage personnel...) 


À bientôt sur la aëêse chaîne... 


Olivier Arbey { SI687-P118-T164 ) 


LEX  *PRINLX? 


ID #71 
M56 0 
POLL © 
POPIN EQU  #0BDIC Pop N à tester dans À 
167124 EQU  #0D476 Teste 2 nombres à 12 
Î chifres virgule flottante 
DV2-12 EQU  #O0C4AB Divise 
CLRFRE EQU  #0C6F4 <=} INT et carry levé si 
! FP=0 
FLTDH EQU  #1B223 12 chifres décimal 
Î flottant -} HEXA dans A(A) 
HDFLT EQU #1B31B Le contraire, de A(A) 
! dans À 
HPY EQU  #0ECBB AëC en HEXA 
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HXDCW 
FLOAT 


FNRTNI EQGU 


PR 


BCL 


EQU  #0ECB4 
EQU  #1R322 
f 

î 
40F216 


ENTRY PRH 
CHAR #F 
KEY  ‘’PRIN’ 
TOKEN 30 
ENDTAT 


NIBHEX 811 
GOSBVL POPIN 
RO=A 
C=0 

1 
RI=C 
P= 2 
GOSUB TEST 
P= 1 
GOSUB TEST 
P= 2 
GOSUB TEST 
P= 2 
GOSUB TEST 
ARI 
60SBVL FLTDH 
C=0 HN 
C=A A 

A=C HN 
SETHEX 
GOSBVL HPY 
GOSBVL HXDCK 
G0SBVL FLOAT 
Î 

C=RO 

2AC HN 
GOYES F5 
P= 4 
GOSBVL TST12A 
G0C  FIN2 
P= 4 

f 

t 
GOSUB TEST 
P= 2 
GOSUB TEST 
P= ä 
GOSUR TEST 
P= 2 
GOSUB TEST 


C(N) HEXA -} décisal 
Entier décimal cadré à 
droite -} {2 chiffres 
flottant dans AN) 
Retour 


N sauvé en RÜ 

Prépare D, diviseur à 
tester 

D ->RI 

Divisible par 2 ? 


…. par 3 ? 
.. par 9 ? 
ETC 


Début test prisalité 


D en HEXA dans C{A) 
.. et A(A) 


D°2 


D*2 en décimal dans À 
pour le test 

N-)C 

D“2=N ? 

oui : N carré parfait 
Test } 

D'2N ? 

...oui : N premier 
Boucle évitant les 
aultiples de 2, 3et 5 
parai les diviseurs 


F3 


FIN2 


TEST 


FINI 
FINS 


P= 4 


GOSUB TEST 
P= b 
GOSUB TEST 
P= 2 
GOSUR TEST 
P= b 
GOSUR TEST 
GOTO BEL 
GOTO FINS 

Î 

1 
C=RO 

î 

Î 


GOVLNE FNRTNI 


C=0 NH 

C=P 0 
R2=C 

A=RI 

60SBVL FLTDH 

C=A A 

A=O HN 

A=C À 
C=R2 

A=A+C A 

GOSBVL HDFLT 
Î 

RI=A 

A=RO 

CRI 

GOSBVL DV2-12 
Î 


GOSBVL CLRFRC 
j 

RTNNC 
i 


CERSTK 
C=RI 
GOVLNE FNRTNI 


END 


Fin boucle 


Saut intersédiaire { 60C 
linité à 128 quartets dans 
chaque sens } 

Retourne le prerier ( gag 
interne.., } diviseur 
trouvé 


Test de divisibilité 
P -} C(0) 


D -} HEÏA 


Ancien D dans AA) 


Nouveau D 
D en décisal flottant 
pour sauvegarde 


N->A 

D-} € 

A/C et résultat en 15 
chiffres sur À-B 

Lève le carry 5’il n’y a 
pas de FP 

Retour si FP#0 { N non 
divisible par D} 


Pop le G0SUB en attente 
Retourne N, nosbre presier 


HISTOIRE D’ INPRESSIONNER 


Lorsque je vis le Lex INKLEX, tout droit venu 
des Etats-Unis, je ae dis qu’il devait étre 
possible de faire aieux. Aussitôt dit, aussitôt 
fait. Un week-end à été nécessaire pour que les 
onze fonctions voient le jour. 


Le but est d'offrir à tous les utilisateurs 
d’iaprisante (HP82905B ou HP2225B) un lot de 
sot-clefs tous plus utiles les uns que les autres. 
Vous trouverez donc, dans PRINTLEX, les 
fonctions et ordres suivants: 


BELL 

Syntaxe: BELL 

Pour possesseurs de HP829058, I1 n’y a pas de 
raisons qu’il n’y en ait que pour la HP2225B 


{Thinkdet pour les intimes). BELL active la 
sonnerie. 


BOLD 
Syntaxe: BOLD ON:OFF 


Pour possesseurs de HP2225B, cela 


“passage en Rode gras”. 
Pour les possesseurs de HP82905B 


signifie 


(coase noi), 


cela veut dire: "passage en aode caractères 
alternés", 
CR 


Syntaxe: CR 

Bien utile, cela ne vaut vraisent pas la peine 
de s’en passer. Reaplace bien souvent un ENDLIRE 
CHR$#(13) esbétant, ou une belle acrobatie pour 
obtenir le double passage. 

ESC$ 

Syntaxe: ESC$ 

La seule fonction de PRINILEX. Fonction, car 


utile aussi bien sur vidéo que sur iaprisante (ou 
encore dans un fichier texte). Voilà. 
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FF 
Syntaxe: FF 


de vais vous expliquer quelque chose: aon 
isprisante est une HP82905B, Elle est située loin 
de aon bureau (au aoins Îa). Lorsqu'il s’agit de 
faire avancer le papier jusqu’à la page suivante, 
il faut que je ane lève, que j’appuie sur 
OFF-LINE, et c’est fatigant. Alors, j'ai fait FF. 
Et, utilisant aussi à certains aonents des 
ThinkJet, je peux vous assurer que c’est plus 
reposant de faire FF CENDLINE] que de lever la 
sain, l’anener jusqu’à l’isprisante, atteindre le 
bouton blanc, et appuyer... 


LF 


Syntaxe: LF 


Voir paragraphe précédent. 


MODE 

Syntaxe: MODE (expression nunérique? 

Changenent de caractère: le parasètre (de 0 à 9) 
indique le aode choisi: © pour normal, { pour 40 
caractères/ligne, 2 pour 132 (142) 
caractères/ligne... 

PERF 

Syntaxe: PERF ON:OFF 

Active ou désactive le saut de perforations. Il 
y aura bien quelqu'un pour utiliser un jour PERF 
OFF, 

PL 

Syntaxe: PL [ (exp. nus.) [ , <exp. nus.) ] ] 
Règle la longueur de la page. Ce not-clef est, à 


non avis, très intéressant. 


Le presier parasètre définit la longueur de Ja 
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page, le deuxière définit la longueur du texte 
dans la page. Attention toutefois: le deuxièse 
parasètre, lorsqu'il est présent, est envoyé en 
premier, 

Lorsque Le deuxièse paramètre est omis, il n’y à 
aucune valeur par défaut (c’est à dire que 
l'iapriaante garde sa valeur antérieure). 

Lorsque les deux paramètres sont omis, PL 
engendre une séquence "standard': papier 12", 
texte de 66 lignes, saut de perforations. Pour 
une fois que ceux qui utilisent du papier 12° 
{forsat # A4) ne sont pas ignorés, cela nérite 
d’être signalé... 


UNDERLINE 
Syntaxe: UNDERLINE ON:OFF 


Pour possesseurs de HF2225B seulement. UNDERLINE 
ON place l’iapriaante en mode "caractères 
soulignés". UNDERLINE OFF retourne en mode norsal, 


WRAP 
Syntaxe: NRAP ON: OFF 


Pour possesseurs de HP2225B seulesent. Par 
défaut, Thinkdet "oublie les caractères 
dépassant la ligne (pour un défaut, c’est un 
défaut...). WRAP ON peraet d’iapriser le reste du 
texte sur la ligne suivante. NRAP OFF reset les 
choses dans l'état initial. WRAP a été écrit à la 
suite d’une suggestion de Michel MARTINET. 


NOTES SUR LE PROGRAMME 


Le Lex fait 565 octets au total. Il me seable, à 
soi, bien optinisé. Je serai heureux d’ouir toute 
asélioration éventuelle. 
Tous les aot-clefs définis dans PRINILEX sont 
transparents vis-à-vis de TAB. 

En effet, si vous faites: 

PRINT "AREUH" 

PRINT CHR$(27)8*&172pb6#1l";TAB(12); "TAGADA" 

vous pouvez constater que "TAGADA" n’est pas 
placé en colonne 12. Cela provient du fait que 


PRINT compte la séquence d’échappesent cosme 
caractères envoyés. Seulesent l’iaprisante les 
ignore, d’où le paradoxe apparent. 

PRINTLEX, lui (4h doo doo doc doc), ne provoque 
pas ce genre de conflits. Les caractères qu'il 
envoie ne sont pas coaptés dans le calcul de TAB. 
Le cosportesent des ordres CR, LF, ou FF est 
logique, aussi: le TAB est reais à 0. 


A propos de la prograasation: il est très facile 
d'ajouter de nouveaux ordres, les outils fournis 
dans PRINILEX devant être suffisants. Le 
prograsse est suffisassent sodulaire pour pouvoir 
ètre nodifié aisésent. 

Le voluae relativement isportant provient des 
séquences d'échappement. Néanaoins, il ne faut pas 
considérer que le Lex est uniquesent une table de 
codes. Toute la partie ‘envoi est là pour le 
aontrer.. 


Le coeur du prograssæe est la routine 
PR-RIN/PR-BAS, Cette routine se charge de 
l'iapression des octets contenus dans une table 


suivant l'appel. Le retour se fait soit à Basic, - 


soit à la routine appelante. 

Il peut être intéresssant d'étudier la routine 
“escseg" pour voir consent "détourner" PR-RIN et 
faire retourner là où on veut... 


Voilà, j'espère que vous trouverez beaucoup 
d'utilité à ce Lex. Pour sa part, et pour les 
raisons décrites ci-dessus (cf. FF), PRINTLEX est 
à deseure dans aon HP7IR. 


À bientot 
Pierre DAVID (51641 P#37 CHHU#616) 


LEX  *PRINTLEX? 
DUNSNNNNNNNNNNSNSENNET SANTA NAN NNNNNNTENEETEASS 
à Le but de ce lex est de fournir toutes les 
# fonctions indispensables à la gestion d’une 
t iaprinante (HP82905B ou HP2225B). 


Î 

ÿ Fonctions: 

$ BELL actionne la sonnerie (HP82905B) 
à BOLD ON/OFF caractères gras (HP2225B) 

Î caractères alternés (HP82905B) 
CR envoie un retour-chariot 


; 
1 
3 
: 
! 
1 
: 
ï 
1 
1 
: 
: 
: 
: 
: 
: 
1 
1 
: 
: 
3 
1 
t 
: 
1 
: 
1 
1 
1 
: 
: 
1: 
3 
1 
: 
1 
! 
î 
: 
: 
! 
ï 
: 
: 
i 
: 
: 
ï 
1 
: 
1 
! 
: 
: 
: 
: 
1 

i 

ï 
: 

! 
1 
: 
! 

! 

; 
! 
: 

: 

: 
; 
ï 

i 

! 
! 
1 

1 

: 
i 
: 

1 

: 
1 
: 
1 
} 
! 
1 

! 
1: 
: 
1: 

1 
1 
; 
1 

! 

1 
1 


i ESC$ retourne le code 27 (Escape) 


t FF avance le papier d'une page 
ÿ LF avance le papier d'une ligne 
f MODE n choix des caractères (0 à 9) 


ÿ PERF ON/0FF valide le saut de perforations 
t PL Int [,n21) règle la taille d’une page 
t UNDERLINE ON/0FF soulignesent (HP2225B) 
t MRAP ON/OFF valide les lignes trop longues 
Î (HP2225B) 
ENNNANANTNNNNNNNNNNNNNRANANNENANNAREEESRERAENNTTÉ 
jo) #71 
#56 0 
POLL 9 


È EQU 39 Le Token de départ 


ENTRY BELLe 
CHER  #D 
ENTRY BOLDe 
CHAR 4 
ENTRY CRe 
CHAR  4D 
ENTRY ESCe 
CHÈR #F Fonction ! 
ENTRY FFe 
CHÉR 41 
ENTRY LFe* 
CHAR 4) 
ENTRY MODEe 
CHAR  #D 
ENTRY PERFe 
CHAR  #D 
ENTRY PLe 
CHAR 4) 
ENTRY UNDERe 
CHAR  4D 
ENTRY HRÉPe 
CHÉR  #D 
ï Syntaxe: 
KEY BELL’ BELL 
TOKEN t 
KEY BOLD’ BOLD ON:OFF 
TOKEN 1+t 
KEY ‘CR’ CR 
TOKEN 2+t 
KEY ESC$”  ESCS$ 
TOKEN 3+t 
KEY EF FF 
TOKEN 4+t 
KEY VF” LF 
TOKEN 5+t 
KEY MODE’ MODE (expression nus. ? 
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TOKEN b+t 


KEY ‘PERF PERF ON:OFF 
TOKEN 7+t 
KEY ‘PL’ PL Eénus.} L , nus.? ] ] 
TOKEN B+t 
KEY  *UNDERLIN' UNDERLINE ON:0FF 
TOKEN 9+t 
KEY CHRAP  WRAF ON:OFF 
TOKEN {ü+t 
ENDTIT 
POLI  EBU  #12337 
pPRTIS EQU #0F Le poll pour iapriaer. 
MFERR EBU #09393 Main-Frame Error 
NITSTM EGU  #08448 Retour à Basic 
PPOS  EQU  +#2F956 Printer-Position ((=} TAB) 
tON EQU  #E0 Token de ON : 
EXPEX- EQU  40F178 Evaluation de l'expression 
Î pointée par DO 
POPIR EGQU #OEBFD Obtention du résultat. 
RAUST EQU  #12AE7 conversion en entier déc. 
DO=AVS EQU  #09B2C 
ADHEAD EQU #181B7 Bjoute une en-tête à la 


Î chaine sur la aath-stack, 


OUTELA EQU  #05303  Décospilation siaple, 
TRACDC EQU  #052FC Décoapile de TRACE 
WRDSCN EQU  #02C02A Recherche du Token 
RESTS OEQU  #03035 Réinitialisation de 


Î l'analyse (parse) 


ECLCK EGU #62A7E Fin de ligne ? 

DELAYp EQU  #OZ2AC6 &nalyse de DELAY 
RESPTR EQU  #03172 Ltilitaire d'analyse 
DROPDC EQU  #05470 Décoscilation de DROP 
FIYF  EGU  ŒHOZAE  fralyse de FIX 

BRGERR EQU #OBFIS  “érguaent non valide" 
FORSTK EGU #2F50E Début de la sath-stack 
ASLH3  EBU GED21 Utilitaire 

BSLN4 OEBU  HEDIE | 


QUT2TC EQU  #G2CFD ” à 

CHVNUC EQU  #O3FB8 Conversion en sajuscules 
SYNTXe EQU  #02E2B ‘Erreur de syntaxe“ 
D=AVNS EQU #45 Utilitaire 

EOLYCK EQU 405405 Fin de ligne ? 


LRÉFEUTÉURSEERTENRRUS SERRES ELEC TEE EURE 
+ PRINT 

f But: Cette routine ieprins La chaine pointée par 
ÿ la prerière adresse de !: pile de retours, 

ÿ Le retour peut s'effestie Le deux manières: 

3 - FR-BÈS: retour à Basic 


$ - PR-RTN: retour à la routine appelante. 

î 

& Principe: 

t Le poll pPRTIS est envoyé, pour être intercepté 
t par l'HPIL, Celui-ci renvoie l'adresse de la 

f routine PRASC qui se chargera de l’iapression. 
i 

{ Schésa de l'appel: 


i GOSUB PR-BAS (ou PR-RTN) 
Î CON(H)n 

Î CON(2) CI 

j : 

t CON(2) Cn 


DÉRLSSANSNENNSANESSNENSNTS NAS NSR NS ETAANSAEEEES 


PR-BAS ST=0 4 Le retour se fera selon 
GOTO print l'état du flag 4 (4 parce 
PR-RIN ST=1 4 les autres étaient déja 
print P= ù utilisés...) 
SETHEX 


GOSBVL POLL 


CON(2) pPRTIS Envoi du Poll 


7XN=0 k-t-il été intercepté 7 
GOYES noerr Qui: pas d'erreur 
LC(2) 64 Non: “Unité non trouvée" 
GDVLNG MFERR 
noerr  C=RSTK Adresse de la table 
Di=C dans Di 
C=C+1 À C: * premier caractère 
D=C À D=ad, du presier caractère 
GOSUB ici Pour avoir la position du 
ici C=RSTK pointeur prograase. 
B=C À 
LE(S) (retour)-(ici) 


C=C+E À 
RSTK=C 


C=adresse de retour 
espilée 


t Après Le poll pPRTIS, si celui-ci est intercepté 
$ par L’HFIL, nous avons l'adresse de la routine 

$ qui se chargera de l'ispression dans A(A). 

Î 

f Le seul soyen, à #a connaissance, pour faire un 
# 60TO à une adresse variable est d’espiler cette 
f adresse dans la pile de retour, puis de faire 


ÿ un RTN. 
C=& À 
RSTK=C 
A=Q À 
P= ] 
A=DATI WP BtBi= nb de caractères, 


RTN {=} GCTO (4) 
retour ?57<1 4 


RTNYES 
nxtstae GOVLNG NATSTH 


Retour à l'appelant 
sinon retour à Basic 


SÉSNSASNAARSANNNENN EN ER EN EtSNNtNE ER ENt TIRANT 

f onoff? 

f But: tester le token suivant: 

$ Sortie: Cy=1 si tON, Cy=0 sinon 

PRSENNNSNNETESANEANENRNNSRNNNNEENIEETITRSNLESÉ 

onoff? A=DATO B 
LC(2) tON 
24C B 
RTNYES Retour avec Carry=1 

Ÿ Ici, après le test, nous savons que Carry=0. 

? Puisqu'une routine d'analyse (parse) siaple doit 

{ étre RINCC, il était tentant de profiter de la 

{ situation actuelle pour faire un RIN avec aise à 

Ÿ zéro de la Carry. 

{ Bilan: 2 quartets économisés. Eh oui, un octet, 

* c’est toujours 8 bits ! 

RTNCC 


parse Avec Cy=0 


titatititttNtNttttNttttENNtNttNttNNAtEELEENS 
SÉNRASANNNNANENNSENTANSNNNNNNTEANEETLNIENIEAENLR 
it 

tt Routines d'analyse et de décompilation 

## (ou encore: décomparse) 

ti 
PSSASSNNNNEENNNTANNNNTNNTANITENEENINNRENENEIEEIT 
PRÉTÉNSNANENENASNRANNANENANANENNENNETENSELNENLEES 


deconp BOVLNE OUTELA 


PERSAN EENENSARNENNENNNNNNNNNNANNINSSNENEANATNTS 
{ UNDERd 

t But: décospiler UNDERLINE ON:OFF 
ÉFASESENNNNSNNNNANNNNNNNSNNNNNNNNNNNNNNENNITENS 


UNDERd LEASC ? FE’ 
D0=D0- 2 Retour sur l’espace 
GOSBVL QUT2TC Affichage de "E" 
A=DATI B Token suivant (ON/0FF) 


SRHNNINNNNtANSENTTRT ERNEST EEE ANNNTER TS 
t ONOFFd 

Ÿ But: décompiler une alternative ON:0FF 
TRATRSENANNSENSANLENSENTENNTNN ENTER SEEN TEtRES 


ONOFFd GOVLNE TRACDC  Déconpilation du token 
TÉNSTESANNANEN TEEN AL SNRENEANERANANNSENSENTINERIT 
t UNDERp 

# But: analyser UNDERLINE ON:OFF 
SÉATESSNANARNRENSNSANSNNSNANTNTENSANINALNENNENIT 
UNDERp GOSBVL CNVHUC Conversion en sajuscule 


LEASC ?E° 

280 B Est-ce *E" ? 

GOYES syntax Non: "Erreur de syntaxe” 
Di=Di+ 2 Qui: caractère suivant 


SÉSAALASEATATNNENSNNSSNRANSTEN SAN TSNNNSNNNENNEATS 
t ONOFFp 

$ But: analyser ON:O0FF 
RISENTANENEENSSNINNNARENSENNTNNNANENNLINNLNNATINTS 
ONOFFp GOSBVL WRDSCN  Token suivant 


CON(2) tON Est-ce ON ? 
REL(3) parse Qui: retour 
CON(2) I+tON {= tOFF } 


REL(3) parse 
NIBHEX 00 Fin de la table 
t Si nous soases arivés là, c’est que le token 
f n’était ni tON, ni tOFF. Alors, on ne reconnait 
? pas l’ordre, et on repasse la main au systèse 
$ d'exploitation. 
GOVLNG RESTY 


restf Reprendre l’analyse 


syntax GOVLNG SYNTXe “Erreur de syntaxe" 

SEASAEETETENEESSLSLNNRENNANSNLTENETANANTENTNLTAT 

t PLp 

à But: analyser PL [nue [, nual ] 

t Principe: on teste le prenier pararètre, et s’il 

f'existe, on continue sur DELAYp 

SATÉASELNAESNSSAREN ENS ENNENNATRLTESENEANNESNTENNIT 

PLp GOSBVL ECLCK  Presier paran, existe ? 
GC resptr Non: on revient à Basic 
60SUB resptr Qui: on branche sur 
GOVLNG DELAYp DELAY nun [, nua] 


RARSENSIANTNNE TANT TANT SN NNNENNNNINANENNE TER 
# NUMp 

? But: analyser un ordre de type ORDRE <num} 
LESASSEANSESNRENAEENENEN SN NSERANESN SENTE TENNIER 
NUMp  GOVLNG FIXP 


SESTSSÉS TA STANSNNN SNS TNNNANENNtATNRNNAINEEES 
f Pld, NUMd 

{ But: décoapiler un ordre suivi d’une suite 

{ d'expressions nuaériques. 
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LRTSASANESNENSNNNANNNNNN RENNAIS NNETNNTNEES 
PLd 
NUMd 


GOVLNG DROPDC Aucun paraa.: autorisé 


resptr GOVLNE RESPTR 


DRENENEINSNNNNNN NANTES NN EE SA EE TENIAL RIT 
Î BELL î 
SRNENSLELENTNNNSNENRR EAN EN ENENNRNNEN NEIL 
REL (5) deconp 
REL(5) parse 


BELLe GOSUR PR-BAS 
CON) 1 1 seul caractère 
CON(2) 7 code 7 


LESERLESASENNENENNENNSSNAENNNANNSSENSENNENNATENETS 
Î BOLD ON:0FF Î 
DELSASNANENSSEESEENSAENSANENSENSSANSSENANENATETE 
REL(S) ONOFFd 
REL(S) ONOFFp 


EGLDe GOSUB onoff? ON ou OFF ? 

60C baldon -} ON 

GOSUB PR-BAS  -} OFF 

CON(1) Î 1 seul caractère 

CON (2) 15 SI (Shift In) 
boldon GOSUB PR-BAS 

CON(1) 1 

CON(2) 14 SG (Shift Out) 


SETSTASENENNANNNNNENNNERNNTNNTSNNENNNNER NES ENE 
1 CR Î 
SRSÉNELEESENEENARENNESANENNSSESNNNENREANENAETS 
REL(S) decoap 
REL(S) parse 
CRe 6OSUB cr 
GOTO nxtsta 


CR est aussi utilisé dans 
LFet FF 


FÉRESEEES UNE NASTRRENSENNSENENERATÉNARENANIENS 
tcr 

? But: envoyer un retour-chariot, et remettre la 

? position de la téte d'écriture à 0, 

à Note: la position de la téte d'écriture est 

Ÿ gardée en méaoire par le HP71. Elle est utilisée 
Ÿ par TAB. 
thttitiitinnitttttnttntttitsisttiitttitittgtttsttt 
cr D1=(5) PPOS Printer POSition 


C=0 BR 

DATI=C E PPOS=6 (TAB=0) 

GOSUB PR-RTN  Iapression avec retour... 
CON(I) 1 
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CON(2) 13 
rtn RTN ss SL CL 
SÉSLÉRERÉNLÉNNSAREEEN SNA SNANTENTITENRÉ 
t ESC$ Î 
LÉSECEONS OT E TU TE CES CUS OUEST ECTS CUT CET CR URSS TE 


NIBHEX 00 Fonction sans parasètre 
ESCe  CDIEX Di=pointeur de pile sath. 

RI=C dans R{ pour ADHEA 

Di=C 

Di=D1- 2 

P= 0 

LC(2) 27 ESC 

DATI=C B 

GOSBVL D=AVNS  recquis par Basic 

ST=6 0 Pas de retour 


GOVLNG ADHEAD Ajout de l’en-téte 
RELÉNEESANISSANSSESTENENNNNNNNSSENNNENNNENNINANES 
t FF t 
LERESALENALENELSNNANENNNNSNSNSNNENNNNNNENANTAEAIR 
REL(5) deconp 
REL(S) parse 
FFe 6OSUB cr 
GOSUB PR-BAS 
CON(1) 1 
CON(2) 12 


On remet d’abord PPOS à © 
et on envoie... 

...un caractère... 

...de code {2 


SÉSTLALESNANSANANNNNENANTNSNSNSTANASNNNNENNNEIEE 
; LF î 
LALSAISTNSTTNENSSANNNNENNNNNENSNNNNENERSENENNNNES 
REL(5) decoap 
REL(S) parse 
LFe 6OSUB cr 
GOSUB PR-BAS 
CON(1) 1 
CON12) 10 


Kése principe que FF 


dO=avs GOVLNE DO=AVS 


DESELTSRANANSNNNNNRESENENNENESANNNNNTENS NANTAIS 

Î MODE <nua} Î 

DESSELESENINENNENNEENNENENNNNNNNNNNNTNNNINEEN EEE 
REL(5) NUMd 


REL{5) NUMp Un paras. nua. obligatoire 


MODEe GOSUB evalex Evaluation de ce parasètre 
C=0 k 
C=A WP Ici, on a P=0 
PA K nb 97 


GOYES argerr 


SETHEX 
LEASC 0° 
A=A+C B 
GOSBVL ASLW4 Décalage à gauche de 7 
GOSBVL ASLNS  quartets 

LCHEX S3008B261H5 ESC ‘&k 5’ 


Conversion en Ascii 


3 8 ce niveau, il est bien ieportant de voir ce 
que l’on a dans les registres: 


CINE x xxx x ) Ü 
kiW= 00000 


ÿ 
0 


» © 


bB2618B35 
0 6 © 0 0 O © (MODE n) 


ee «A4 
CA 


L’addition de À et C nous donne bien évideament 
la bonne séquence d'échappement. 


i 
Î 
Î 
Î 
Î 
i 
Î 
Î 
$ C va alors être transféré en aémoire (AVMENS), 
{ afin d'être envoyé à PRASC ‘ 

C=C+A N 

GOSUB dû=avs DO revoit AVMERS 

DATO=C 11 La table est créée à cet 

CDOEX endroit, pointé par DO, 

RSTK=C On sisule un GOSUB, 

60TO PR-BAS 


SESASTNNNNENINENENNENANTNNNENENENLENENNETNENINETS 
Î PERF ON:OFF î 
SRSSTTTNNLNNTENNNNENNNNNNTENNNNENETEENTISENNNNLNET 
REL(S) ONDFFd 
REL(S) ONOFFp 
PERFe  GOSUB onoff? 
8=G À 
LEASC *L° 
GONC  pertoft 
A=B+! À 
perfoff GOSUF escseg 
GOTO nxtste 


Fin de séquence 
i=pert on 
retour à Basic 


LÉCEETE COCO CES ETS ETES COUT CES CS CUT COURTE EE 
} evalex, trad 
ÿ But: 
Ÿ - evalex: évaluer la chaîne de tokens pointée 
Ÿ par D0, et... 
Ÿ - trad: dépiler le soaset de la pile-maths, 
Î convertir le nosbre en décimal, et vérifier 
1 qu'il est inférieur à 126. 
stitisttattntittsittgtnnttnnttttisrititiatttattttt 
evalex SETHEY recquis car EXFEX- 
GOSBVL EXFEN-  évaluetio... 
trad GOSBYL RJUET  Traducst.z- 25 entier déc, 
SETHEÏ aprés FJUST 


60C  argerr Inf 


C=0 NN 

LCHEX 128 C=00...00128 

PAC HN 

RTNYES Retour autorisé 51 < 128 


argerr GOVLNE ARGERR sinon: “invalid argusent* 
LÉSSTASENENSENENESSENSNNENASTNESENENNNSNNANERRS 
à escseq 
t But: Envoyer une séquence du type: ESC & 1 #44 $ 
You ##4 est dans A(A), et $ dans C({B) 
i 
à Note: 
t Beaucoup de séquences d’échapperent sont de la 
à forae ESC & 1 # $, où: 
# est un nonbre entier 
$ est un caractère (f/F, p/P, 1/L ou d/D) 
I} est à noter que les zéros de tête dans # ne 
sont pas pris en cospte. Cette caractéeistique 
est très intéressante... 


i 
ï 
Î 
f 
î 
Î 
# Principe: 
# - La table est construite à partir de AVMEMS: 
{ Les caractères ESC, & et 1 sont d’abord 
Ÿ placés, puis on calcule # sur 3 chiffres 
ÿ (octets), et enfin, on place le caractère $ 
ÿ à la fin. Il est à noter que cette séquence 
ÿ  d’échappesent est de longueur fixe. 
Ÿ - La table est suivie en aésoire d’un code RTN 
f (#01). Le retour de PR-RIN 5e fera là, d'où 
Ÿ retour final à la routine appelante... 
$  Siaple, non ? 
RRSSSESUNENSANENTES ANNEES SNSSNENEE TS ESNENTTS TEA 
escseg D=C BE Sauvegarde du caractère 
B=â A et du nosbre 
GOSUB dû=avs 
LCHEX 6C261E7 7 caractères dont: ESC & 1 


DATO=C 7 

Dü=D0+ 7 

BSRC 

BSRC B(Q-0)=premier nosbre 

LEASC °0° C{E)=#30 

P= 2 3 boucles au total 
boucle AÀ=B À A(A)=0000x 

B=0 À B=xx0000,.,0000 

A=A+C B RIB)=3% 

DATO=A B 

DO=DO+ 2 

BSLE B=x0000,,,.0000% 

P=P-1 

GONC boucle Boucle si F>=C 

C=D B caractère fine) 
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#4 4 


DATO=C B 

DO=D0+ 2 
LCHEX 01 
DATO=C B 
Do=D0- 15 
GOSUE Ja 

la C=RSTK 

A=C À 
LC (E) 
C=C+A À 
RSTK=C 
CDOEX 
RSTK=C 
GOTO 


argerR GOTO  argerr 


PR-RTN 


code de RTN 
D0=début de la table 


C{A)=pointeur progranse 


{rtn)-{la) adresse d'un RTN 


enpilée.., 


puis l'adresse de la table 
Envoi... 


LEREASENNESNNELNNENNEENENTANNENNENTESENETSNRT SE 
Î PL E (nus? D, €nus} 1] Î 
FESÉSEENTEENATSSSNENESEETEESTRNANNSNNA NES SENTE 


REL(S) PLd 
REL(5) PLp 
A=DATO B 
GOSEVL EGLXCK 
GONC 
GOSUB PR-BÀS 
CON(I) 11 
CON(2) 27 
CON(2) ’£? 
CON(2) 1? 
CON{2) 7° 
CON(2) °2° 
CON(2) ’p° 
CON(2) ‘6° 
CONI2) 6? 
CON(2) *f° 
CON(2) °1° 
CON{2) °L° 
parasetres 

GOSUE evalex 

Di=Di+ 6 

ADIEX 

RI=A 

Dü=(5) FORSTK 

C=DATO À 

7A}=C À 

GOYES unique 

ADIEX 

LOAGE, *F° 

GOSUR escseg 


BR! 


PLe 


FE 


18 
Lin 


CIRE Hib pauë 4 


AtB)=token suivant 
Fin de ligne ? 


parametres 


Qui: chaîne par défaut 
ii caractères 


Evaluation des paranètres 
Dépilesent 


Sauvegarde de D! 
Un seul paramètre ? 
Qui: longueur de la page 


Longueur du terte 


ms mm mu me me es me we me me me mn me me me mm me me ge me me me me ee mu me me me me me me me mn 


GOSBVL POPIR 


GOSUB 
ADIEX 
ADIEX 
LCASC 
GOSUB 
nxtstM GOTD 


unique 


trad 


2p? 
escseg 
nxtsts 


Contorsions abosinables ! 
Longueur de la page 


Retour à Basic 


SALES ENIENTÉSSENNINANISSENNERENSENSNENNINENISTAE 
UNDERLINE ON: OFF j 
DULSESSESSNINNINNNNNENNENSESNNTNTENARENNTITNIES TES 


ï 


REL (5) 
REL (5) 
GDSUB 
G60C 

GOSUB 
CON{1) 
CON (2) 
CON {2) 
CON (2) 
CON (2) 
GOSUB 
CON (1) 
CDN (2) 
CON (2) 
CON (2) 
CON {2) 


UNDERE 


UNDon 


UNDERd 
UNDERp 
onoff? 
UNDon 
PR-BAS 
4 

27 
£ 
?d° 

7e 
PR-BAS 
4 

27 

L 
’d’° 
D 


Séquence d'échappesent 
difficile à paramétrer 


DÉLSEEESENESANNANEEREENTTENTENSENLINNANTENNTE 


WRAF ON:OFF 


j 


SÉRELSENSTASNNTNANANENSNSNENENSANNTNIESNSESTINANIT 


REL (5) 
REL{S 
GOSUB 
GGC 

GÜSUB 
CON (1) 
CDN (2) 
CON 12) 
CON (2) 
CON (2) 
CDN (2) 
GOSUE 
CON (1) 
CON {2) 
CON (2) 
CON 12) 
CON (2) 


LUN 


fRÈFE 


Wrapon 


ONOFFd 
ONOFFp 
onoff” 
Wrapon 
PR-BÈE 
ÿ 

27 

74 
= 
vr 
*C: 
PR-BAS 
È 

27 

EL 

5° 


3f? 
Ÿ 


cr 


GESTION DE TOUCHES EN ASSEMBLEUR 


Lorque l’on rédige un progranse quelque peu 
interactif, l’on est souvent amené à utiliser 
les touches dites * Cursor keys ", Pour savoir 
si l'une d'elles ect enfoncée, il faut réaliser 
une cérie de tests à l'aide des fonctions KEY$, 
KEYDJHN ou KEYNAITS. Cette gestion de touches, 


longue à settre en oeuvre et dispendieuse en | 


octets, n’est pas toujours assez rapide ( Cf 
progranse REFLEX de Serge VAUDENAY, JPC No25 de 
gai 1985 }, Certains ont déjà résolu ce 
problème, gais les solutions adoptées jusqu'ici, 
bien qu'elles ne manquent pas d'élégance, ont 
été trop particulières, 


Je vous propose ce acis-ci (en avant presière) 
deux nouvelles fonctions: CURSKEYS et CURSDOHN. La 
première renvoie une valeur coaprise entre 0 et 
6, suivant QUE VOUS avez appuVÉ OU non sur une 
des touches du curseur (Les codes correspondent 
aux codes utilisateurs suivant: 1447, 2=448, 
1 3=450, 4<#51, S=#162 et 6=#163). Cette fonction 
est autrement équivalente à KEY$. CURSDONN est 
elle équivalente à KEYDONN, mais ne teste que 
les touches de codes utilisateurs #47, 448, 450, 
#5l. L’arguaent renvoyé appartient donc à 
l'intervalle [0,43, 


Vous pouvez désormais respiacer le test fait 
par 5. VAUDENAY et J-P BONDU par, respectivenent : 


ON CURSKEYS GOTO ... 


ON CURSDOWN 6070 


Jean-Jacques NOREAU - 


LEX  *ONKEYLEX’ 


ID #71 
M5  Ô 
POLL 0 


i 
1 
! 
; 
1 
} 
3 
1 
ï 
1 
} 
t 
i 
1 
} 
i 
1 
1 
1 
1 
! 
; 
; 
i 
i 
3 
i 
1 
: 
3 
: 
: 
ï 
, 
1 
3 
: 
L 
! 
! 
: 
4 
1 
1 
1 
1 
! 


ë 
! 


ENTRY onkey 


CHAR 4F 
ENTRY nokey 
CHÉR #F 


KEY  *CURSDOWN” 


TOKEN 31 


KEY  *CURSKEYS” 


TOKEN 32 


ECU  #00D4D 


t 


Î 


Ï 
Î 
Ï 
Î 
î 
Î 
Î 
ï 
Î 
ï 
i 
ESU  #010EE 
; 


{ 
ECU  #023E5 
ï 
Î 
ESU 


ï 
Î 


40F219 


ENDTAT 


NIBHEX Où 
î 
E=û  P 
C=C+1 P 
INTOFF 
$ 
QUT=ES 


Déteraine quelles sont 

les touches sur lesquelles 
on a appuyé depuis le 
dernier appel de cette 
routine. Est executée 
chaque fois que l’on appui 
eur une touche. C’est 
cette routine qui est 
responsable de la 
définition 

de la touche 8TTN et du 
coupie de touches (ON, /). 
C'est donc eile qui, 
éventuellesent appelle la 
routine de Menory Lost, 
Retire une touche du 
buffer de touches si carry 
est désarmé 

Saut dans une table, 
suivant ls valeur du code 
en À(E) 

Exprine le résultat placé 
en CN) puis retourne à 
l’interpréteur BASIC 


Fonction CURSDOKN, sans 
paranètres 


L'instruction qui suit ne 
peut étre interrosque 
GUT=1 (Cf articie de J-J 
MOREBU sur les registres 
IN et OUT, JPC No2é, 

juin 1985). Lit IN en 
A(3-0). 

Ne garde que la partie 
utile de IN, 
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anky!7 


onky50 


onky60 


onky70 


onky86 


cnkyE4 
oitky82 
onky80 


onky26 


onky10 


onky95 


PC 


GOSUR 
BONC 


D=D+1 


D=D+ 
N=D+! 
D=D+ 
P= 
C=Q 

Î 
C=C-1 


QUT=CS 


INTON 
C=D 
RDOEX 


Gi 
onky17 
onky20 


BOVLNG FNRTN2 


A=E 


i 


AzE+A 


Detzit 
Pzr+ 


À 


À 


DIW=résultat (Nul pour 
l'instant) 


Sort si aucune touche de 
la rangée inférieure n’est 
enfoncée 

B(A)=copie de A{A) 


La touche #47 est-elle 


enfoncée ? 

Non. Ün continue le test 
Qui, exprimez le résultat 
{1} 


Touche #48 


Résultat=2 


Souche #50 


Résultat 3 


Touche #51 
Résultat 4 


Routine persettant 
d'expriser le récultat 


Regot QUTIO) à sa valeur 
initiale (4#F) 


Réactive les interruptiqas 
Résultat en C(K) 
50 en A(A) 


Cette routine arme carry 
si la touche est enfoncée, 
la déserge sinon 





nokey 


noky20 


noky3è 
noky38 
noky40 
noky42 
noky44 
noky4é 





GONC 


onky99 
R=A+A À 
CER 


NIBHEX 00 Fonction CURSKEYS (Aucun 
Î parasètre) 


CDOEX Sauvegarde DO et ©1 
REC 

CDiEx 

RO=C 

GOSBVL KEYSCN  Réactualise le buffer de 
Î touches 

G0S3VL POPBUF 

D=0 NN Résultat=0 

G0C  noky20 Aucune touche dans le 
î buffer 

fst  B Exprise le résultat 

à correspondant à chaque 
Î touche 


GOSBVL FINDA 


CON(2) 37 
RELIS) nokyl 
CON(2) 48 
REL(3) nokyr 
CON(2) 50 
REL(3) noxyu 
CON(2) 51 
REL{3) nokyd 
CON(2} 142 
REL(S) nokyt 
CON(2) 163 
REL{3) nokyb 
CON(2) Q Fin de la table de saut 
[=D HN Exprise le résultat et 
î retourne au BASIC 
A=RO 
Di=A 
A=R2 
GOVLNG FNRTN2 


D=D+i 
D=D+! 
D=D+! 
D=D+1 
D=D+1 
D=D+i 
P= 
GOTO 


Cf anky40 


GS TRE DD UT 


noky2Ù 





nokyl = 14 
GOTO  noky46 


nokyr = 14 
GOTO  noky44 


nokyu  P= 14 
GOTO  noky42 


nokyd P= 14 
GOTO  noky40 


nokyt P= 14 
GOTO noky38 


nokyb  P= 14 
GOTO  noky36 


END 


INDATES 


INDATE$ facilite la saisie de la date dans un 
forsat européen et renvoie après la pression de 
la touche Endline, la date saisie dans un forsat 
anéricain. 


ï ü ORDRE « Exécution au clavier ! 
1 ® Fonction o Mode CALC 1 
i © Opérateur # IF..,THEN,.,ELSE î 
-} INDATES |---. } 
EXENPLES 

INDATES SETDATE INDATES 

A$=INDATES 

COMMENTAIRES 


Cette fonction est destinée à contourner le BUG 
1078-5 qui peut produire une erreur Data Type 
lors d’une concaténation. 

D'autre part, INDATE$ resplace la routine BASIC: 
20 DIN 1$[110] 

30 C$=CHR$ (27) 

40 I$=CSL"(DATE “&C$k")JJ"ECSL"C/"ECEE "NN" 

J0 IS=ISLCSE"C/" LCL) AAMECSL"C" 

60 I$[1103=" 

70 INPUT "",1$:D$ 

80 D$=D$[7,818D$(3,614D$01, 2) 


STITRE PPCPC 
SRSESEIESSENNNNNERANANNNNNNNNENNNTTNNEIENENAERE 
ÉSRERISTESINNNANNNNESNENENNNANNSNNEEANENNENEES 


ff 

ft Noe: INDATES saisie la date en foraat Eur op. 
ft 

ff Catégorie: Siaplification de prograane, 
ff 

#t Propos: Saisie date Européenne. 

ft 

f# Entrée: 

ft 

#4 Sortie: 

tt 

#f Utilise: Voir le début du source. 

tt 

ft Stk lvls: 

tt 

ti 

#f Historique: 

## Date  Prograsseurs Modifications 
HE TT nn 
14 19/07/85  JI.D. Création du #ot 
tt 


ASTESERNAREEENSRRAENESENNNNNANNNENNEENNTENNEET 
FATSAASSENSSNENSREANENNRENNNNNNANNANTENEENNNNEEET 


Jean-Jacques DHENIN (SIG6#5 P#177) 


LEX ?INDATLEY’ 


ID #71 | 
M6 0 | 
POLL 0 

t TITRE : INDATE Jean-Jacques DHENIN SI645 

; 336 12 05 


SCHEDIT EQU #14C99 
ADHEAD EQU #181B7 
=CSLCh EQU #1B432 
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SCSLC4 EQU #1B438 
SCUROFF EQU #BIC3 
SCURON EQU #BIE3 
SD=AVAS EQU #14460 
=DSP$00 EQU #185DB 
=BF2DSP EQU #01C0E 
SCURSFL EQU #151DF 
SFINLIN EQU #18A3A 

ENTRY  IND 

CHAR 4F 

KEY *INDATES? 

TOKEN 50 

ENDTIT 


NIBHEX 00 

IND CDIEX 
RI=C 
CDOEX 
R2=C 
GOSUB POP 
î 
NIBHEX #B1C3 
NIBASC *DATE : 
NIBHEX #BIE3 
NIBASC *3J’ 
NIBHEX #B1C3 
NIBASC ?/° 
NIBHEX #B1E3 
NIBASC *MM° 
NIBHEX #B1C3 
NIBASC */? 
NIBHEX #BLES 
NIBASC AA? 
NIBHEX #B1C3 
NIBAGC ?*” 
NIBHEX FF 

POP C=RSTK 
Di=C 
GOSBVL BF2DSP 
GOSBVL =CURSFL 


JPC 


GOSBVL CHEDIT 


GOSBVL =FINLIN 


C=R2 
CDOEX 
CERI 
DI=C 
ST=1 0 


GOSBVL =D5P$00 


Î 

Di=Di+ 14 
DI=Di+ 2 
C=DAT 12 


Pas de paranètre 
) 


} Sauvegarde des 

) pointeurs DQ et D! 

} dans R{ et R2 

Place dans RSTK l'adresse 
de l’instruction suivante, 


CUROFF ) Chaîne à afficher. 


LE } 


CURON  ) CURON et CUROFF 
} établissent 
CUROFF ) les chaaps 
) protégés. 
CURON 


CUROFF 
CURON 


CUROFF 


tt tt 


} Fin de la chaîne, 
Adresse début de chaîne. 
Di=adresse 

Affichage de chaîne. 
Replace le curseur, 
Entrée des données, 
Eteint le curseur, 

) 

} Restitution de Di et DO. 
) 

) 

Retour après DSP$00 
Place sur MATSTK les 
caractères non protégés. 
Passe l'en-tête, 

Passe le CR. 
CC11,0]=JJNNAA 
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présenté 


Di=Di+ 12 


Passe la chaîne, 


ADIEX ) Sauvegarde dans 
RI=A } RICA) la fin de la 
ADIEX } nouvelle chaîne. 
DI=D1- 16 Di=Début de chaîne. 
CSLC } 

CSLC ) C= ,JJMMAA. 

LCHEX 2F C= .JJNNAA/ 

GOSBVL =CSLC&  C= MMAA/.JJ 

A=C A AIA)=  ,JJ 

GOSBVL =CSLC4  C= AA/.JJMM 

P= 9 P= 4 

CSL HP } 

CSL WP } 

CSL WP } 

CSL WP } 

CSL WP ) 

CSL WP } C= AA/HM... 

C=A A C= AA/MM.JJ 

P= à P= à 

LCHEX 2F C= AA/MM/JJ 

P= 0 

DATI=C N Pose la chaîne sur MATSTK. 


GOSBVL =D=AVHS 


ST=0 0 


D(A)= AVHENS. 
Retour direct à BASIC. 


GOVLNG =ADHEAD Retour à BASIC. 


END 


FORMATTONS, FORMATTONS !! (SUITE) 


Y à déjà quelques mois, je vous 
un petit foraatteur de texte. 
l’utilisions tellesent pour faire JPC qu’il nous 


avais 
Nous 


fallait un outil plus perforaant, L’assesbleur 
est venu à notre secours. En un week-end est né 
FORMALEX, Je devrais plutôt dire en deux nuits ! 


Plus tard est arrivé CENTERS, pour parfaire la 
panoplie, 


Ce que nous vous aontrons ce mois-ci n’est 
qu'une étape. Tel quel, ce programse nous rend 
d'excellents services, Sans lui, ce n’est pas 
150h que nous passerions à faire JPC, sais 300 !. 

La prochaine étape sera l’asseablage cosplet 


om 


sous la forre d’un seul ordre. 


Mais ce Lex ne sera pas dénodé pour autant, 
Avec ses fonctions CESURE, CENTER$, FORMATS, 
SPACES et REDUCES, il est devenu indispensable 
dans bien des circonstances, 

Le progrange Basic a beaucoup maigri, suite à 
cette cure. Nous vous le eontrons: 


19 INPUT “Fichiers "5F$ 
& INPUT “Formats ","S0"3N @ T=TIME 
8 CALL FORMATIFS,K) & T=TIME-T 
1000 SUB FORMAT(FS,N) 8 DIX A$(2587,B$C256+N] 
1019 SFLAG -1 & PURGE FTXT 8 CFLAG -1 
& CREATE TEXT FTAT & ASSIGN #1 TO F$ 
8 ASSIGN #2 TO FTAT 
1020 P=Q9 @ ON ERROR 6070 1050 € READ #1,058$ 
9 OFF ERROR & IF A$[1,11="\" THEN 1060 
1030 IF A$[1,17="*" 
THEN R$=CENTERS (REDUCES (A$C21) ,N) 
1040 DELETE #1,0 & PRINT #2:4$ & GOTO 1020 
1050 PURGE F$ 9 RENAME FTAT TO F$ 8 END 
1060 A$=4$12] & IF A$[1,1]="* 
THEN A$=<4$[21 & P=CEILIN/10) 
1970 B$="" & CFLÉG 5 & 6OTD 1090 
1080 READ #1,0:4$ 
1990 DELETE #1,0 @ A$=REDUCES(A$) 
1100 IF AS[LEN(AS)]="\* 
THEN SFLAG 5 @ A$=A$II,LEN(AS)-1] 
1110 IF NOT LEN(AS) THEN 1140 ELSE H$=B$4k" "£A$ 
1120 A$="* @ IF LENIBS$}C=N-P 
THEN 1140 
ELSE A$=BR$CCESURE (B$,N-P)+2] 
8 B$=B$[L,CESURE(ES,N-P)] 
1130 B$=SPRCES(P)LFORMATS(BS,N-P) & PRINT #2:E$ 
# H$=A$ & P=0 & IF LEN(BSI2N THEN 1120 
1149 IF FLAGIS) 
THEN PRINT #2: SPACES$ (P)&REDUCES$ (E$) 
€ 6079 1020 
ELSE 1080 


Voilà, ce petit bout de Basic foraatte 100 
octets en une seconde, Notons pour l’anecdote 
que 60% du tesps est passé à recopier le fichier 
plutôt qu'à le forsatter, 


Etudions aaintenant plus en détail chacune des 
fonctions: 


CENTER$ 
Syntaxe: CENTER$ { <exp. alpha.} , €exp. num.) } 


centre la chaine À$ dans N 
En clair: met (N+LEN(A$))/2 blancs 


CENTERS (AS, N) 
caractères. 
devant. 

Si NCLEN(A$) 
telle quelle. 


ou LEN(A$)=0, AÀ$ est renvoyée 


CESURE 
Syntaxe: CESURE ( (exp. alpha. , Cexp. num? } 


CESURE(AS,N) rend la position du presier blanc 
à partir du Niène caractère où on peut couper À$ 
{vers la gauche). Détail trés isportant: CESURE 
est programsée de telle manière que les signes 
de ponctuation "}.:19:,* ne soient jamais en 
début de ligne. 

Si LEN(ASIN, alors CESURE renvoie LEH(A$), Si 
la chaine est insécable, N est renvoyé. 


FORHAT$ 


Syntaxe: FORMAT$ ( exp. alpha. , (exp. nus.) ) 


FORMATS(AS,N) foraatte ja chaine À$ à N 
caractères (rajoute suffisamnent de blancs). La 
chaine est d'abord réduite, avant d’être 
fornattée. 

FORNATS est la fonction la plus intéressante du 
lot, 

Note: il y une "bogue* dans FORMATS. Nous ne 
l'avons pas enlevée, car elle donne des 


résultats aeilleurs que ceux prévus... 
Si LEN(ASIÈN alors À$ est renvoyée telle quelle. 


REDUCES 
Syntaxe: REDUCES( (exp, alpha. } ) 


REDUCESIA$) réduit la chaine À$, 
enlève tous es espaces superflus, 
systéaatiqueaent par FORMATS. 

REDUCE# enlève les blancs de téte et de queue, 
et laisse un blanc à chaque fois qu'il en 
rencontre plusieurs de suite, 


c'est à dire 
Utilisée 


JPC 
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SPACE 
Syntaxe: SPACES( (exp, nus. ) 


SPACESIN) rend une chaine cosposée de N blancs. 
Cela était tellenent simple à prograamer, et 
tellement utile que Sa ne valait pas la peine de 
s'en passer | 
SPÉCESIN) avec N€=û 
Cette condition peraissive 
souplesse, 


renvoie la chaine nulle, 
offre plus de 


Horæis SPACES (et REDUCES bien sûr), toutes les 
fonctions, lorsqu'elles resoivent un paramètre 


nusérique négatif ou nul provoquent une erreur . 


“Argument non valide”. 


Voilà, vous Savez saintenant tout  çur 
l'utilisation, Nous vous conseillons maintenant 
de vous pencher sur le progresse, celui-ci 
pouvant étre riche d'enseignements. 

Ë Bientôt et Heureuse Prograssation 

Pierre DAVID et Michel MARTIHET 

{5161 P37 CHHU6I18) (SI62 PI2 CHHUë17) 
P.5, pour l’utilisation du prograrge, référez 
vous au JPC nr Z2!, Toutefois, vous avez 


maintenant la possibilité décaler vos débuts de 
paragrapnes avec la comsande [\*] en début de 
ligne. 


LEX  ’FORMÉLEX" 
ID #71 
MS6 6 

FULL 0 
ENTRY CENTER 
CHAR #F 
ENTRY CESURE 
CHAR #F 
ENTAY  FORAHAT 
CHER #F 
ENTRY REDUCE 
CHAR #F 
ENTRY SPACE 
CHER #F 
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KEY  ‘CENTERS’ 

TOKEN 34 

KEY ?CESURE”* 

TOKEN 35 

KEY  *’FORHATS’ 

TOKEN 36 

KEY  ’REDUCES” 

TOXEN 37 

KEY  *SPACES” 

TOKEN 38 

ENDTIT 
REVPOP EEU  #0BD51 
REV$  EEU  #1B38E 
EXFR EU  #0F23C 
HOFLT EU #1H31B 
FHRTN4 ECU  #0F238 
AVMENS EOU  #42F594 
MENERR ECU +#0944D 
MEERR EU 497395 
IDIVA EBU  #0EC6E 
D=AVNS EOU  #14440 
RNDAHX EGU  #136CB 
STKCHR EBU  #18504 
BRGERR EEU  #0BFI9 
POPIS EU +#0ED38 
CSLCS OEBU #{E435 
fiag EEU Ô 
boucle EU Î 
caract EBU 2 
ÂDHERD EGU  #18187 
CSRCS OEOÙU  #1E41B 


Syntaxe: 
CENTERS {A$,N) 
CESURE {4$,H) 
FORMATS (AS, N) 
REDUCES (4$) 


SFACES (K) 


LLSILIIALILIIIELITETEÉAIIANAILINAIILILIENETINTIELIS 


? reduire 
À But: enlever tous jes 
? chaîne de caractères, 


esoaces superflus d'une 


RESAILEILANTENIITÉNATITELENNITITENANIIANNENANEATI 


reduire SETHEX 

GOSEVL FOPIS 
CDSEX 

6OSBVL CSLES 
CDIEX 

C=C+4 À 
Ri=C 

Do=C 
Di=C 
D=9 À 

ji 

Î 


HEX pour FOPIS 


C=painteur prograñne 
Ce ceseO ses 
C=,...,..D0 D 
C=,.,....D) (Ditlong) 
R1=,,,(D0]{D{+A] 
Dû=*début de la chaine 
Di= iden 

DEAI=Nb d'enpiacenents 
(espaces de la chaine 
réduite) 


ST=1 flag 


S7=0  boucie 


S7T=0  caract 


B 
À 
Fin 
{ boucie 


i 
T 
ÿ 
T 
Î 
LEASC ? ? 
B=C 
Enlève A=A-1 
GDC 
ST= 
Î 
B=è-1 À 
Dÿ=20- 2 
C=DATO E 
2C48 8 
GOYES noblan 
25721 flag 


Enlève 
D=D+! À 


=! flag 


ajoute 


noblan flag 


ST={ 
i 
DI=Di- 2 

i 
DATI=C E 
BONC Eniève 


caract 


| ajoute 


Fin 25T=5 
GOYES 
257=1 
GOYES 


flag 
nonnui 
boucie 
nonnul 
?57=$ caract 
GOYES nonnul 
Di=Di+ 2 


4 


nonnul RTK 


Ii faut enlever les 
blancs suivant 

aucun passage dans la 
boucle 

Caractère non blanc non 
rencontré 

= ? 

B(B]=32 (espace) 
Longueur en quartets 
Saut si longueur nulle 
au #oins un passage dans 
la boucle 

quartets... 

caractère suivant 

Il est recopié dans € 
est-ce un espace ? 

non 

Si non, est-ce ie premier 
d’une série ? 

non, alors on le néglige 
oui: un esplacenent 
supplésentaire 

C’est le premier d’une 
série : 
B.E,T, 

Premier d'une série: 
aucun Sens, Puisque non 
bianc 

Bu soins un caractère non 
blanc dans la chaine 

On range le caractère 
CCE] ds la chaine réduite, 


B.E.T, 


5i le dernier caractère 
était un blanc, on 
l’eniève, 

ainsi que dû noabre 
d'esplacenents 


LENLISIRSANEENENTENNINNENNENNIRTTSEENLISANIENNEEIT 

1 SPACES$ } 

LELSASEILENTASENARTSNSNNENTNNAESANENNLTEENATALSEX 
NIBHEX 811! 


SPACE  GOSEVL RNDAHX 
GC positif 
B=Q À 
positif D1=Di+ 18 
CDIEX 
D{=C 
RI=C 
GOSBVL D=AVNS 
6OSUB strble 
60C  ret2 
stkbic LEASC * * On charge * “ dans C{B) 
GONC test Reste-t-il des caractères 
ï à eapiler ? (B,E,T,) 
bsp GOSBVL STKCHR Qui: on espile un blanc 
Î devant la chaine 
Ï alphanunérique. 
test A=ä-i À BA) sert de coapteur, 
GONC  bsp Boucle si 4>=0 
RTR 
LIXINIISENSINNENNSTINNNNNLTILTININANENIENELININT 
Î REDUCES î 
SISLEANLLILISALIILILNNINTIILANIALIIAANIIILIIIIIÉ 
NIEHEX 411 


REDUCE GOSUB reduire 


LEISSENEIANITENIANTNANINLENSAATENAILANINELANIATATÉ 
t retour 

{ But: assurer le retour à l’environnement Basic, 
t et prendre en charge la restauration des 

Ÿ pointeurs, 
trittitittiittittittitttinttttttinttitnttittittttt 
retour C=Ri C=...,D0,.. 

GOSBVL CSRCS C=..,.,.,D0 

CDOEX Dû=5os counter 

ST=ÿ © ADHERD ne rend pas la sain 
GOSBVL D=AVMS 

EOVLNG ADHEAD 


ret2 


argerr GOVLNE ARGERR 


LANIANIIIININNINENTAITANANATASATNSSINNTTSINANEAIS 

î CENTER$ î 

YÉNITISESLITIINILENSTNANANANTANATENLINNANANTANLTAL 
NIBHEX 4422 


CENTER GOSUB Aronun Pop, teste et convertit en 
î HEXA le paramètre 
i nuñérIiquE. 
GOSBVE REVPOP “Pop”, test et renverse 
î la chaine aiphanuaérique. 
Î En sortie de routine, Di 
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Î 
j 
CDIEX 
; 
Di=C 
C=C+A A 
j 


RI=C 


Î 
; 
Î 
t 
GOSBVL D=AVAS 
t 
Î 
Î 


C=RO 
Ï 
t 
C=C+C À 
î 
G0C  argerr 
Î 
ï 
î 
?8=0 À 
Î 
GOYES FIN 
PCÉA À 
î 
GOYES FIN 
Î 
C=C-A A 
i 
1 
B=O M 
Â=C A 
ASRB 
ASRE 
GOSUE stkblc 
FIN ST=1 © 
Î 
GOSBVL ADHEAD 
î 
t 
GOSBVL REVS$ 
î 


GOVLNG EXPR 


pointe après l’en-téte de 
la chaîne. 

Chargesent dans C(A) de 
la valeur de D{, 
Restitution, 

CA) = maintenant 
l'adresse de fin de chaine 
{utilisé plus loin par la 
routine ADHEAD). 
Sauvegarde dans R\ pour 
être utilisé dans ADHEAD. 
D(A) = AVMENS (AVailable 
MEMory Start). L'opération 
est faite aaintenant car 
la routine utilise C(A). 
On charge dans C(A) la 
valeur du parasètre 
numérique. 

C{A) = parasètre 
numérique en quartets. 

En cas de dépassement, 
l’argusent était supérieur 
à la longueur aaxi. d’une 
chaîne: ERREUR, 

La longueur de la chaîne 
est-elle nulle ?? 

Si oui: FIN, 

La longueur de la chaîne 
>= à la longueur desandée? 
Si oui: on renvoie 
siaplement la chaine, 
Calcul du nosbre de 
blancs: CA) = 4 fois le 
noabre de blancs, 

} Division de C{A) 

} par 4 

} et restitution dans A(A) 
} en octets. 


Obligatoire pour un bon 
retour de ADHEAD. 

Mise en place de 
l'en-tête de la nouvelle 
chaine, 

On renverse à nouveau 
avant le 

retour à BASIC, 


DRRSRSTSNNEINSESSNNNNENNARENENENTNEANNEEENNITE TS 


Ÿ Argnus 


* But: renvoyer le paramètre qui est sur la pile, 


JPC n26 page 54 


f duenent vérifié et testé ()0). 

f Le nosbre est renvoyé dans A{A) et RO(A) en hexa 
f En sortie, on à Carry=0 
DESSSNNNNNNNNENSENNÉSNSESNNNNNNNNNNNENNTNENNEATIN 


Argnus 


ReRErr 


BOSBVL RNDAHX 
GONC argerr 
28=0 À 
GOYES argerr 
Di=Di+ ib 
RO=A 

RTN 


GOVLNG MEMERR 


A(A)=nonbre hexa 
Argusent Error si (0 
Paramètre nul 

.…. alors Arg, Error 
POPer le parasètre 
et le settre dans RO 


SEÉREATSELINENSANSTEENNENASNENNSENNATNNENATARIEX 
FORNATS$ Î 
CASFENSENTANSNSNNENENEANERANEENSENNNATEEENAATANTS 


Î 


FORMAT 


NIBHEX 8422 
GOSUB Argnun 
GOSUE reduire 


CRI 
Î 
A=RÔ 
C=C-A À 
60C  aeserr 
C=C-A À 
ï 
60C  saererr 
R2=C 
Î 
A=C À 
Î 
D6=C 
DÜ=D0+ 16 
60C SeRerr 
CDOEX 


DO={5) AVMENS 
ADOEX 


2Cé<A À 
GOYES seserr 
C=RI 
A=Q  N 
B=C À 
CDIEX 
f 
Di=C 
B=A-C À 
BSRE 
C=RÔ 
74 À 
! 
GOYES strovf 


ACAJ,ROCAJ=no8bre hexa 


C=...,.,("début de la 
chaine) 
B=parasètre 


=“fin de la chaîne 
forsattée 


R2=*fin de la chaîne 
forsattée 

Pour transfert ensuite 
dans DÔ 

+ 


}+16 pour l'en-tête 
} 
; 


a-t-on depassé AVMEMS ? 
non: pas d'erreur 
C=*début de la chaine 

} 

3 ÀA=00..,.000 “début 
C=*fin de la chaine 
réduite 

Di= ides 

h=longueur réduite 

... en octets 
C=iongueur foraattée 
erreur si long{réduite) > 
longtforsattée} 


7B=C A Retour si chaine déjà 
Î formattée.,, 
GOYES retoun 
B=ô+I À Iong{chaïne réduite) 
7<ÿ À Peut-on settre des blancs? 
GOYES retour non: la chaine réduite 
! est renvoyés 
ÊsB-C À 
Âz-3 À 
ED A 
R3=C R3= nb totai 
Î d'esplacements 
GOSEVL IDIVA  A/C 
P= Q P=j5 aprés IDIVE 
î À: Quoti ient  Bil: Reste 
1 Il faut settre C fois 
Î fi blancs 
Î et ile reste fois À 
f blancs 
RÜ=C A {- € 
E=4 À 
E=E+t À 
GOSUB rajout 
A=RO B=longueur de la chaine 
Î forgattée 
C=R3 C=nb total d'englacesents 
C=C-à À Czile reste) 
E=E-{ À {un espace en AOÏNS par 
Î boucle) 
SOSUE rajout 
C=R2 
Di=£ pointeur de pile-fath 
retouR GCTO retour 


LHSYITETERINNNIILINELINNLITANIILENIETISHIIINEIEE 
À strovi 
? But: renvoyer l'erreur “Dépassenent de chaine" 
À ‘pour les heureux possesseurs de FABLE). 
1 Four les autres, il n'y a plus rien à faire... 
fifiitiisinstiitsitttattittitistititttisttpitititt 
strovt LE(Z) 37 String Dverflon 

GOVLHE MFERR 


ÿ rajout 
À Eut: rajouter C(A} espaces à la chaine 
SINTATIIRNANANILIISÉEINNANNSÉLIENATIILIENLINE SET 
rajout D=C À D=conpteur. 

ÉCAGD 7? C=° ? 

GOT bocl 


bb ASIÉTI E Recogier le dernier 
î caractère de la chaine 
1 réduite 


dans la chaine formattée 


est-ce un espace 7? 

non: on continue 

Foucie interne eur À. 

ï Elle est exécutée À fois 


2 
C2 
++ 
on 
D co © pJ CA Pa 
Le al 


Un espace de plus dans la 


ï chaine formattés 
Eû=D0+ 2 
b2 Bzä-i À 
GONE recogie On continue tant que À>=0 
D=D-1 Un explacement de moins 
bocl 2041 & Est-ce le dernier 
î esglacesent ? 
GOYES bb Mon, on continue 
RTK Qui: retour à l’envoyeur 


HÉRISESEISTISENEE EEE ENANIITILNSAIIANATIIEANIENT 

t CESURE Î 

SELELISISESSSNSINSNETANTITESITITENLNAIIIHITITIINII 
NIEHEX 6422 

CESURE GOSUS Éranun Retourne un nombre HEÏA 


î dans Àig} et RO(A) 

Eh À Sauvegarde de la césure 
ï dans Btâ), 

ECSEVUL POFIS Vérifie que l’on est bien 
î en présence d’une chaine 
ï et retourne sa longueur 
Î dans É{A), 

C=4 À Division de AlA) par 2, 

B=5 HN ; 

AC ËE À 

ÊSRE 5 

CDIEX CiA) * Début de a 
t chaine. 

Di=C . 

C=C+é À : 

C=C+A À : 

D=C À On sauvegarde l'adresse de 
î début de chaine dans DA) 
RE À longueur (chaine) € césure? 
GOYES FinC Qui, on renvoie la chaine 

ï tout siaplesent 

C=£-5 À On piace Di sur le 
ï premier caractère CONCEFNÉ 

C=C-E À par la césure 

DI=C . 

ECASC ‘hsal7"7 ÿ Tous les 
ï caractères de comparaison 

ST=£ On set STi0) à 0: flag 
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Boucie 


futreB 


Nob] 


TestP 


1 À 


B 
6 Nobl 


=£- 
QC 
î 
Di=D1+ 2 
Î 


GONC 
A=KO 
60C 
À=KÔ 
?A=B À 

Ï 
GOYES NotstP 

t 

Î 


Boucle 


Fin£ 


AiBl=caractère à conparer. 
Est-ce un espace ? 

Qui: on va en TestP pour 
comparaison avec les 
autres caractères de CU) 
On à rencontré au aoins 
un caractère différent 
d'un Espace 

Décrésent de la césure 
Reste-t-j] encore des 
caractères à tester ? 
Qui, on place Di sur le 
suivant 

B.E,T. 

AA) = césure 

B.E.T. 


AURA) = Valeur de la césure ‘ 


La position de l'espace = 
césure 7 

Qui, on retourne chercher 
l'espace suivant en 
décréaentant la césure 


3 La séquence suivante teste si A(B) est un des 
Ÿ caractères de ponctuation. 

Ÿ Elle prend agins de place dans ce Lex que 

Ÿ l’agpel à ja routine interne: MEMBER 


Bc12 


Notstf 


Suite 


{ 


> JPC 


3 7 

; 
Di=nt- 2 

Î 
A=DATI B 
CESR KN 

ER  W 
?ASC BB 
GOYES Suite 
P=P-] 
GONC cl? 

i 


j 
; 
GOYES Autres 
Ï 
Ï 
â=ä-1 À 
RO=A 
GONC  ButreB 
C=AÔ 
Î 
7E=C À 
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âutrement test: P= 
coapteur 
Di * le caractère suivant 
l'espace 
AB) = caractère à tester 
Décalage du registre C 

: 


Le caractère est-il égal 7 
Qui: on branche en “Suite” 
Décrésentation du corpteur 
I] reste des caractères à 
tester dans © 

Il n’en reste plus 

B-t-on déjà rencontré un 
caractère différent d'un 
espace 

Qui: on ne décrésente pas 
la césure (elle pointe ce 
caractère !} 

On décrémente la césure 

RQ {- la césure 

B.E.T. 

La position du blanc = 

la césure 7 


EOYES Décr Qui: on branche en fin de 
î prograsne directesent 
B=B+1 À Autrement on ajuste ie 
t résultat pour 
B=B+i À engiober le caractère de 
Î ponctuation 
Décr A=B À Passage de BA) dans AA) 
ï pour l'appel de la 
Î routine FLTDH 
A=â-t À Décrésent de A(A) pour 
{ ètre juste 
FinC C=D À 
Di=£ Di pointe gaintenant le 
ï début de la chaire, 
DI=Di- 16 Di-16 nous songes prét à 
i placer le parasètre 
{ numérique 
GOSBVL HDFÈT Transformation de AA) en 
j nosbre décinal dans Ah) 
CA  k& 
GOVLRG FNRTN4 Retour à BASIC. 
END Sig ! 
Chers anis, 
Félicitations 4 tous les aesbres qui nous ont 
offert des routines en asseñDlgur, fais à CE 
sujet, quelques questions: 
- En cas d'erreur à l'assemblage, peut-on 


stopoer l'asseablage sur le gescage d'erreur, ou 
au aoins avoir le tesps de le lire ? 

- Le #oduie Forth contient ia nouveiie 
Basic {non décrite) EDPARSES 
alphanuaérique), son exécution 
résultats étranges, que fait-elle ? 


fonction 
{variable 
donne des 


Pour terminer, voici une nouvelle définition du 
aot VLIST en Forth, qui liste les nots un par un 
en attendant l'appui d'une touche. 


 VLIST 
41 Ô 
D0 
I ÿ= 


IF LATEST 
ELSE E0000 I + € 
THEN 
BEGIN 
EUR COUNT {F AND TYPE 
KEY DROP 
CR5- € 
?DUP 0= 
UNTIL 


L 
J 
+L00P 


Bmicalesent 
Christian BACHELET 


Cher Christian 


Voir les erreurs d'assemblage n'est guère aisé, 
surtout sans iaprisante ou interface vidéo. La 
solution, s'appelle alors “Le Listing-File*, 


C'est une option de l’assenbleur qui peraet de 
oroduire des listages conne celui paru dans PC 
No20. Les erreurs agparaissent alors coase le ne 
au milieu de la figure. 


Le preblèse principal qui peut se poser est Île 
sanque de place en mémoire. En effet, le listing 
produit est trés gros. Il faut alors essayer de 
localiser l'erreur, puis d’encadrer Ia région 
susceptible avec un LIST ON et un LIST OFF. 


Notes on peut siagiesent avoir le noabre 
d'erreurs (et quelques autres choses en plus) en 
faisant LIST OFF à la deuxièse ligne du LEX, et 
LIST ON juste avant le END. 


Quant à la fonction EDPARSES, elle est utilisée 
par l'éditeur de texte. Son rôle est d'analyser 
la connande entrée, d'isoler les paramètres, et 
ceci en tenant compte du traducteur de #essages 
{FRALEX ou autre}, 

Tu vois donc que son usage en dehors du contexte 
de l'éditeur de texte est délicat. Bon courage !!! 


Pierre DAVID 


nement À FD (2 
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NE: 


CT 


IGATION 


< 


SRRATE ci-aprés un bien 
toutefois, re rend de 


nds du ge es rs la prégaration de mes 
n 


ous 


Ce programe n" ‘intéresse 
préparation 
c'est-à-dire 
reporté eur la € : et les iques 
g nt donné que je pratique 
s distances entre repères 


Ces élésents constituent l'étage préalable qui 
précède Ja précaration “dynamique” dans laquelle 
notre 71 excelle tout particuliérenent (mais 
a-t-il vraisent beaucoup de mérites dans CE Cas 
précis.,..), En effet, avant tout voyage aérien, 
il est absolugent japér cit de se renseigner 

ugrès d'un Centre Météo afin de connaître Îles 


1 eu 
= 


concitions atagsphériques en Cours 


Les données qui sont transaises sont diverses, 
Paræi celles-ci nous intéressent 
particulierement, dans CE  Ffrograsse, la 


direction du vent et sa forces la direction du 
vent est toujours exprimée en degrés à partir de 
son origine : un vent du 180 est un vent qui 
vient du Sud et qui souffle plein Nord. La force 
du vent quant à elles ect exprirée en noeuds... 
Ne cgvez D en Aviation ne règnent 
4 Je ne citerai QUE 
en pieds 
Les pleins 
S + 


non 


Full 


ro 
ec. 
"u 
un 
= 
=] 

EN. 7m 
r+ ut 
Ft 
an un 
CL 
ra 
er vs 


En (D os LI 
uni 
Cu 
ns 
art 
ra 
na 
À 
mo 
arr 
Do 
ea 
ve 
1 
ht 


E 
t les vi 
ESSENCE © 
pas en gallc 


un 
vtt 


Le seilleur royen pour i 

fonctionnement du grogragte ect de prendre un 
exemple: inaginons une navigation partant du 
point À et se rencant au point C en pe ant par 
B, Nous aurons donc déterainé sur la carte que 
la distance entre À et Best de 35 Kas et que 
pour aller de À à BH il faut prendre un cap 
aagnétique théorique au 230, c’est-à-dire en 
fait s'il n'ya pas de vent. Il faut préciser 
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que ce cap aagnétique théorique ect le résultat 
de ce que l’on appelle la Route Vraie, qui est 
déterminée sur Ja carte à l'aide d’un 
rasoorteur, à laguelle a été appliquée la 
déclinaison magnétique du lieu par ex. - 5" 


Guest en Région Parisienne). Puis de E à €, nous 
aurons calculé une distance de SÙ0 Kas avec une 
route au 120, 





Vent 099 * 


tout 


Malheureusement, 
car au aosent du départ, le gæétéorologis 


cela n'est que théorie, 
te nous 
20 noeuds. 
magnétiques 
nous Nous 


“ 


: génant, non ? 


a indiqué un vent du 090 souffiant à 
Si nous conservions Îles caps 
calculés sur la carte, de À 
retrouverions en B° et de E° en C° 


IL va donc falloir rectifier ces caps Et 
recalculer les tenps de vol en fonction du vent, 
car ces derniers se trouvent augaentés lorsque 
l'on vole avec le vent dans le nez et diminuée 
dans le cas contraire, 


Le proorañse nous interrogera donc tout d'abord 
sur La direction du vent qui devra ëtre entrée 
en degrés, puis sur sa force en noeuds. Ces 2 
données, direction et force, sont  supposées 
définitives et sans changenent sur le parcours 
entre les repères: elles ne seront donc entrées 
qu'une seule fois au début de l'exécution, 
Enfin, nous indiquerons la distance entre Aet R 
(35 Éas) et le cap aagnétique (230). 


IL faudra alors choisir pour l'édition des 
résultats entre l'affichage sur l'écran et 
l'inoression sur une isprimante. À ce propos, je 
dois vous indiquer que je ae sers pour cela de 
l'isprisante theraique HP82142À car celle-ci est 


portable, peu encosbrante et bien suffisante 
pour cette utilisation. 

Les résultats suivants apparaîtront donc, soit 
sur l'écran, soit sur l’inprimante: 

{pour l'écran, appuyez à chaque fois Sur une 
touche) 

7.6.4 = 14 

Dérive (À) = 14,4" 

Dérive sur axe CE 

Correction teaps = - 11"/* 

Tenps corrigé = LE 257 

Nouveau cap magn, =  22{° {au lieu de 230) 


Le T.S.V, ou Teaps Sans Vent, est calculé en 
aultipliant la distance par le Facteur de base 
{Fb). Ce facteur de base est un rapport établi 
en divisant 60 par la vitesse de croisière de 
l'avion (sans vent), Les avions sur lesquels je 
vole ayant une vitesse soyenne de 150 Kas/h, le 
facteur de base est donc 40 / 150 = 0,4 . 
Celui-ci, ayant été placé dans une variable en 
début de progranse, peut-être facilement aodifié 
et adapté à tous types d'avions, [Ce T.S,V est 
donc le tenps que mettrait ‘avion pour 
parcourir La distance de 35 Kas séparant À de E 
s'il n'y avait pas de vent... 


Ensuite nous avons besoin de connaître quelle 
serait Ja dérive maximale, appelée X, si l'avion 
se trouvait en plein travers, à 90°, par rapport 
au vent, Celle-ci serait de 14,4", Ce résultat 
nous sert acrès pour déterniner la correction 
d'axe que nous devrons effectuer pour conserver 
notre route entre À et B. Cette correction 
s'aopelle la dérive sur l'axe et elle est ici de 
- 9,3", c’est-à-dire qu’au lieu de garder un Cap 
au 230, qui nous aénerait en B’, nous allons 
suivre un cap magnétique au 221; ce que nous 
confirnera l'ordinateur avec son dernier résultat. 
Pour les puristes, que vous tes certainement, 
je dois préciser que 221 est un résultat arrondi 


cs ee © ee © = me me = eu = mu ut es. ne mn M me Mn mn œ ne ww ee me mn me mt ns we es ne me me mm Me mes = ue 0 mm Me me eu mm me de “Me de 


et que dans la pratique le cap à suivre serait 
sêse arrondi à 220 car il est très difficile en 
vol à vue de conserver une route à J° près. 


La correction de tesps donnée ensuite par Île 
programse est expriaée en secondes par minutes 
de vol, bien entendu en plus ou en aoins Selon 
que l'on voie contre le vent ou avec celui-ci 
dans le dos. Ici le vent nous pousse, donc nous 
irons plus vite et mettrons roins de teaps pour 
aller de À à R que s’il n’y avait pas de vent. 
La corection de teaps est alors négative et sera 
à soustraire du résultat T.5,V. 


En fait, jusqu'à aaintenant, ce ne sont que des 
résultats intermédiaires qui ont été indiqués, 
pour contrôle du bon fonctionnerent du 
programe, et seuls nous intéresseront pour 
notre navigation les résultats finaux exprinés 
dans les deux dernières lignes. 


Le teaps corrigé, quant à ui, est obtenu en 
soustrayant (sur cette portion de navigation) au 
T.S.V (14°) : 149 (1-11) = 154", Nous mettrons 
donc, pour aller de À à B, 11725" au lieu de 14° 
puisque le vent nous est favorable, 


Pour autre partie de cette navigation 
inaginaire, où pour les autres parties, Car nous 
pourrions très bien aller ensuite de C à D puis 
de D à E..., le progranse nous interroge 
directement sur la distance et le cap aagnétique 
suivants sans revenir sur la force et dla 
direction du vent qu'il suppose sans changenent, 
cosae je vous l'avais déjà indiqué. Pour sortir 
du progranae. répondez donc © pour la distance ! 


fh ! J'oubliais, pour se rendre de B à € il 
faut 24709" en temps corrigé avec un Cap 
sagnétique au (13. Si tels ne sont pas les 
résultats que vous délivre votre 71, revérifiez 
à tout hasard votre prograsae.., Et attention 
aux vents trop forts !... 


J'espère que cet exposé un peu long vous aura 
intéressé et que certains d’entre vous 
trouveront, si ce n’est l’utilisation de ce 
programae, peut-étre l'envie de l'appliquer en 
situation réelle “sur le terrain" (d'aviation 
bien sûr...). 


JPC 
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à bientôt dans les airs de notre chère vieille 
France. 
Jean-Marie SIMON P#LAù TS! 
FORMULES UTILISEES: 
E0 
FE = 
Vit, croisière 4 


Dérive (X) =Fb1 
{en degrés} 


vit. Vent 
{en Kas/H} 


Vent = {24 Vit, Vent 
en Kas/h} fen noeuds 

Dérive sur l’axe = { t sin 8 

(en degrés} 

8 étant l'angle au vent (angle formé par l’axe de 

l'avion avec la direction du vent}, 


Correction temps = {cos 6 
{en */? de voi) 
7.5,V = Fb f Distance (en Kas} 


Teñge corrigé = 7.6.0 +/- (Correct, teaps À TS. Vi 


UTILISATION DE LA TABLE TRACANTE 719 
AVEC LE HP7IB ET LE FICHIER PLOTLEX 


(Ce conplénent, fa i 
dans le JPC No 15 de juin ! 


J,- Utilisation générale: 


Certains nenbres possédant le HP71 
1719 


et la t 
qu 


trasante canon éprouvent que 





JEC n26 page 60 





sation. Pour retrouver 
l’ensesble des ordres qui pilotent le 1710, 
reportez vous à l'article paru dans le nuréro 
15. Avec la àf, vous deviez faire: (1) "code dec 
en 4, XTOA OUTA" pour envoyer les codes, 
l'utilisation en basic avec le 71B est beaucoup 
plus single, Il suffit sisclesent d'envoyer 
“ERINT CHRétcode)...", Four envoyer un ensesble 
vous devez séparer es 
différents “CHR$(...i" par le csyabole °&k* de 


difficultés d'utili 





i générale avec ie 71B, vous 
e 710 conne isprigants par: 


-RESTORE 19 feurtout ne pas l'oublier}, | 
-PRINTER 15 a ou _ ER 15 INTRFCE (définit 
le sd coane PRIXTER), 

-DISPLEY IS # ou on 15 ** ou DISPLAY 15 NULL 
(ce re gst conseillé, sinon vous risquez 
avoir des caractères indésirables à 
l'inpression, Si vous désirez japriger tout ce 
qui ce passe à l'affichage, vous devez définir Île 
aode DISPLAY 15 : 264), 


I1,- Utilisation avec le fichier FLOTLEX: (2) 
ier PLOTLEX est 3 utilitaire cour HP71 et 
table ds 1719, C'est un fichier Lex écrit 
h arizien et Jean-Jacques Dhénin, Il 
£ au Club sur envoi soit d'un 
ique, soit sur commande de ce 


ur un 


fonctions contenues 
ntenant les étudier 


Sgrés avoir listé toutes les 
dans ce Lex, nous allons #ain 
une à Une. 


II1.- Fonctions contenues dans PLOTLEÏ: 


équivalent à l’ordre €. 


I 
12 
= 
2 
529 


de changer la couleur utilisée, La syntaxe 
et "COLOR 0, COLOR !, COLOR 2, COLGR 5"; pour 
rescectiveñent, les couleurs noire, bleue, verte 
et rouge, La Je tracante utilise le paramètre 
de COLOR aodulio à si celui-ci est supérieur à d 





équivalent à l’ordre S. 


Permet de changer la taille des caractères 
utilisés, La syntaxe utilisée est CSIZE n où n 
est un nombre compris entre © et 15. Si ce 
nosbre est supérieur à 15, la aachine utilise le 
résultat de n aoduio 6, : 


1 DRAK équivalent à l’ordre D. 


Tracé absolu. Exécute le tracé trait de la 
position actuelle de la pluse à un point de 
coordonnées (x,y), La syntaxe est: DRAK x,y. 


i HOME : équivalent à l’ordre H, 

L'ordre HOME, qui s'utilise sans parasètre, 
soulève la pluse et la ramène à l’origine 
courante. 

ï LABEL équivalent à l’ordre P, 


; 
1 
: 
4 


La syntaxe utilisée est LABEL * chaîne...", et 
permet d'écrire du texte en aode graphique. 


équivalent à l’ordre Q, 


1 
+4 
D 


Cet ordre permet d'écrire dans Îles quatre 
directions, La syntaxe utilisée est LOIR ©, 
EDIR 1, LDIR2 ou LDIR 3, Les autres valeurs 
utilisées seraient prises aodulo 4, 


équivalent à l’ordre L, 


Cet ordre peraet de sélectionner le type de trait 
voulu, La syntaxe utilisée est LTYPE n où r peut 
prendre n'isporte quelle valeur de © à 15. Sin 
est supérieur à 195, n sodulo Îé sera utilicé, 
Dans le ces particulier où n=0, le plotter 


Ü 


Irace 


un trait continu. 


i MOVE : équivalent à l’ordre M. 

La syntase utilisée est MOVE x,y, Cet orûre 
soulève Ja pluse, et l'amène au point de 
conréonnées (x, y}. L'ordre provoque un 
déplacement absolu de ia pluse. L'ordre 


MOVE 199,200 soulève Ja pluse et l'arène au point 
de coordonnées (100,200), 


Cet ordre peraet l'initialisation de Ja table 
traçante coupe PLOTTER, Il valide toutes les 
fonctions incluse dans Je Lex PLOTLEX et doit 
donc être utilisé avant toute opération 
utilisant ces fonctions, La syntaxe utilisée est: 
PLOTTER IS 264 O(Xbâ étant Je nuséro d'ID du 
convertisseur.), au mére titre que les ordres de 
1'HPIL: PRINTER IS …. et DISPLAY IS 


q=—————— 


i RDRAN : 


équivalent à l’ordre à, 


Cet ordre perset je tracé relatif, Trace un 
trait de la position actuelle du crayon jusqu’au 
point de coordonnées {x,ÿ), Le svrtaxe utilisée 
ect RDRAN x,y. 


équivalent à l'ordre 8, 


Ce sode perset une réinitialisation totale de la 
table traçante, Le passage du mode graphique au 
sode texte, la coordonnée YŸ est resise à 0 et 
l'origine est placée à l'’extrésité gauche. La 
rotation des caractères est remise à Ô et les 
données fixées par L, € et S restent inchangées. 


RMOUE 1 uivalent 3 L'ordre FE 
RAUYE à équivalent à l'orûre 
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Cet ordre perset le déplacesent relatif de la 
pluse, L'ordre RMOVE 0,-100, avance le papier de 
109 points. 


équivalent à l’ordre |. 


un 
m 
ot 
=] 
2 
mn 


Cet ordre qui s'utilise sans paramètre, redéfinit 
la position actuelle de la plure conse origine, 


J'espère que ces quelques explications vous 
aideront à sieux cosprendre l'utilisation de 
votre X7{0 munie de son aeilleur CRE j'ai 
nommé: Le HP7IE, 


Philippe. 


(D) - Note de J.J, Dhénin, Le aodule Panase 
HP41 contient, parmi bien d’autres, tous les 
ordres décrits ci-dessus, 


{2) - Il existe deux autres versions de ce Lex: 
- HPGL pour HP7470A ou PAC-SCREEN 
- CESIé pour la nouvelle table traçante 
sharp foraat A4, 
Desandez les au Club. 


À PROPOS DE DISP$ 


Lorsque l’on rédige un prograane que l’on 
souhaite voir utiliser par d’autres, il est 
particulièresent irportant de contrôler de près 
la gestion des entrées/sorties, afin de lisiter 
les "plantages" toujours mal venus, L'acquisition 
de données 5e faisant exclusivesent (sauf rares 
exceptions...) par l’intersédiaire de INPUT ou 





LINPUT, je ne s'intéresserai qu'à ces ordres, La 
ÿ attentive de JPC vous à persis de 

que nosbreux sont les programges 

commencant par POKE "2F44{" "EF", Ceci cdi dE 


BC HE masse 


banaliser a touche ATIN, c’est à dire de la 
gérer comse n’inporte quelle autre: sa pression 
n'interrospt plus le prograsne, Le problèse n’est 
pas pour autant résolu, car #ése dans ces 
conditions son  eaploi rend la main à 
l'utilisateur lors d'un INPUT. Et c'est justement 
ce que nous voulons éviter... Bien sûr il reste 
le Langage Machine, ais ne brélons pas les 
Étapes et profitons des 240 fonctions BASIC que 
nous avons à notre disposition, 

Tout de suite une question pour 
endormir: connaissez-vous DISP$ 7? 

À ceux qui ont répondu oui, un Super Banco: 
Savez-vous vous en servir ? De toute aanière 
comse dans l’école des fans, tout le aonde a 
gagné et est renvoyé à son Manuel de 
Référence!... Soyons sérieux (un exenple nous y 
aidera), 


ne pas vous 


Suite à une question, nous vouions que 
l'utilisateur puisse libresent répondre (accès à 
tous les sysboles du clavier), sais ne soit pas 
en sesure d’interrospre le progranase. Le resède 
est siaple: nous redéfinirons les touches 
“sensibles”, c’est à dire ON(#43), OFF(#99), 
USER(#O) ainsi que celles de votre choix. Leur 
définition sera: (’’:], qui signifie: aucune 
action ([°*]) et action ismédiate ([:}), L'effet 
résultant s'apparente à un retour chariot à une 
nuance près: Jl’affichage n’est pas assigné à la 
variable d'entrée, Le not affichage désigne Ja 
réponse & a question, et non l'énoncé de la 
question, Par exemple tant que vous n'avez pas 
répondu à La question INFUT "Non ":48, 
l'affichage est considéré vierge, bier que l’on y 
lise le eot “Nor ". Tapez "T0TC", et alors DISP$ 
est égal à T070, bien que vous n'ayez pas encore 
validé par la touche [END LINEJ. 11 est isportant 
de coaprendre cette subtilité car elle est la 
clef de notre problèse. N'hésitez pas à relire 
les quelques lignes précédentes si je ne #e suis 
pas clairesent fait coagrendre, Cette précision 
aportée, voyons sur l’exesple suivant: 


Q5 POKE *2F481°,°Q° 


06 DEF KEY °443°,°*: @ DEF KEY °F0°,°?1 ! etc... 


10 INPUT "Fichier: "sRé 

20 IF R#SOISE# THEN 10 

30 IF NITILENIFS)) THER RETURN 
LE 


Ce 


En ligne 20, on a R$=DISP$ à 2 conditions: 

1- vous avez utilisé [End Line] pour valider la 
réponse: l'affichage est affecté à RS, 

2- vous avez utilisé une des touches redéfinies 
sans rien avoir répondu, 

C'est la ligne 30 qui lévera cette asbigüité, 
Cela signifie que le renvoi en ligne 10 n'aura 
lieu qu’à une seule condition: ayant consencé à 
inscrire une réponse, vous avez utilisé une des 
touches redéfinies, À ce aosent DISP$()"", eais 
R$="", L'effet produit est le stse que si l’on 
avait pressé sur ATIN dans un INPÜT norsal: la 
réponse est éffacée, la question reposée (ce 
n’est pas conne avi ...), 

Ligne 30: si aucune réponse n’a, été faite, 
retour, Sinon on continue le traitesent avec le 
nos du fichier en R$. Siaple, non ? 


J'espère que #es explications sont assez claires 
et que cette astuce vous aidera dans la 
réalisation de vos propres programses, Elle me 
sesblait suffisesent utile pour mériter votre 
attention. Si vous n’en êtes pas tout à fait 
convaincu, sachez qu’elle se füt révélée lors de 
l'étude attentive de l'Editeur de Texte du aodule 
FORTH/ASS, ce qui est quand aése une référence, 
non ? 


Jean-Pierre BONDU (PC 33, 516 4) 
F5: Si cela ne vous suffit pas, peut-étre 
tudieron mous la fonction INLINES, Histoire de 


patienter, sachez qu'elle adeet 7 parasètres et 
est toujours d’origine HF... 


SUPREM 


} - cevoir de le documenter, afin de le rendre 
pius cospréhensible au 


Il y 2 quelques lundis, je ae sis à ecrire un 
prograrce dont la valeur technique n’a d’égale 
que #2: longueur, Fort de ce sonceau BASIC, je se 


cosaun des gsortels, 


Peut-être un jour verrez-vous le résultat de ces 
élucubrations inforsatiques,.. 


Quand je dis docugenter, j'entends bien sur, 
ajouter Gà et là quelques petites remarques, qui 
en aucun cas ne sauraient nuire à la qualité 
estéthique de l'oeuvre. 


La taille du prograsse de base étant passée de 8 
Ko à 14 Ko (que de place utilisée), il ne ae 
restait plus qu'à faire 2 versions de mon 
travail, La première destinée uniquerent et 
prochaine- sent à vous, et devant donc satisfaire 
à tous les critères de corpréhensibilité et de 
lisibilité et possédant donc un  maxiaun 
d'observations. La seconde, elle beaucoup plus 
concrète, puisque servant, cosse tout programme 
qui se doit à être utilisée en tant que telle, 


Mais, un gros problèae se posa à aoi. En effet, 
cosaent faire pour supriser toutes ces remarques 
qui saintenant ae genaient plus qu'autre chose ? 


Un travail 
traque de 
élucubrations 


long et fastidieux eût consisté en la 
celles-là tout au long de ses 

dantesques. Mais quelle est Ja 
tache d’un ordinateur, sinon bien entendu 
d'éviter à l'hosme des taches longues et 
fastidieuses ? Je s’attelai donc à la conception 
d’un prograsse dont l'unique but avoué était de 
supprimer (et hop) Iles resarques devenues 
inutiles lorsqu'il s’agissait de faire tourner 
quelques lignes (toujours dans le sens des 
aiguilles d'une aontre). 


Voici donc, livré, là, devant vos yeux ébahis, le 


résultat d’une cogitation rondesent senée, 


Laurent ISTRIA 


TRI D'UNE TABLE PÈR ORDRE CROISSANT 
UNE METHODE SIMPLE LE TRI BULLE" 


Jr r 
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Cette méthode consiste à se déplacer dans la 
table de la gauche vers la droite, de manière à 
perautter les éléments non ordonnés, qui 5e 
suivent: 


Exeaple: 


Soit le tableau suivant: 


32 15 ë 1 


ère étape -} (32 15)  & Î 
2ès8e étape -) 15 (32 6) 1 
3ère étape -) 15 b (32 4) 
4ène étape -) (15 b) 1 32 
Jèse étape -} b (15 F} 32 
bère étape -} ë 1 (15 32) 
Tèse étape -} {é 1) 15 32 
Bèse étape -} ! b S 32 


Si au cours d’un déplacesent dans la tablee, 
aucune perautation n’a lieu, alors la table est 
triée. 


Jean-Claude FOURES 


COMPTE BANCAIRE 
CONPTEUR TELEPHONIQUE 


deux 
rendent 


Jde ne permets de vous faire parvenir 
prograsmes sur  HP7IB qui Re 
personnellesent beaucoup de services. J'espère 
qu'il en sera de aèse pour tous les aesbres du 
Club, Leurs caractéristiques sont les suivantes: 


PROGRAMME COMPTE 


But: 
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Permet les opérations Débit/Crédit/Consultation, 
À tout nonent, on peut connaître les chèques qui 
n’ont pas encore été encaissés par la banque, 
ainsi que le solde disponible, 


Utilisation: 
Après [RUN], on a le choix entre cing options: 


{- CLST: consultation des chèques non encore 
débités ou crédités, On 5e déplace dans le 
fichier grâce aux touches [vi et [*}, Pour 


signifier que l’on a reçu le relevé de banque, il 
suffit de taper CEND LINE] après l'affichage du 
sontant, Pour revenir au senu, taper [fi après 
l'affichage du aontant. 

2- ou 3- Débit ou Crédit. Répondre à ce qui est 
desandé. toutefois, si la date du chèque 
correspond à la date du jour, il suffit de taper 
CEND LINEJ pour la rentrer, 

4- TT: Totaux. Fournit le solde du coapte, ainsi 
qu'entre parenthèses le nosbre de chèques non 
encore enregistrés par la banque, 
S- ]: Initialisation. 8 n'utiliser 
première utilisation. 


qu'avant une 


Reaarques: 

La construction est très classique. 
points un peu originaux sont: 

- Une consultation facilitée grace à la routine 
SUB CLAVIN) qui siaule un éditeur d'écran, 

- Une réorganisation autonatique du fichier dès 
que celui-ci est renapli (Une sini-"Sarbage 
collection" en quelque sorte), 


Les seuls 


PROGRAMME TELE 


But: 

Peraet de savoir combien va nous coûter une 
cosaunication téléphonique lorsque l’on téléphone 
hors de sa circonscription. 


Utilisation: 

Après [RUN], entrer la période de taxation après 
avoir consulté annuaire, Par exencie, pour 
Fontainebleau, après 21h30: 48 seconies rar taxe 
de base, 

Ensuite, l'affichage fournit à droite l'heure 
présente, au centre le prix facturé et : gauche 


la durée de l’aspel. 


En fin de coasunication, appuyer sur une touche 
pour stopper les compteurs, 


Remarques: 

J'ai préféré conserver une entrée manuelle de Ja 
période de taxation plutôt que d'apprendre au HP 
la carte de France, À l'usage, cela se révèle 
beaucoup plus efficace, les circonscriptiohs 
téléphoniques ne correspondant pas tOUjOurs aux 


circonscriptions adsinistratives, 


Bien asicalement, 
Laurent SERANO (PPC 216) 


CARACTERES ETHIDPIENS 


Ci-joint un programe de graphisae: 
transcription des chiffres arabes (1, 2, 3 etc.) 
en chifrres Ahaaric (©, ©  etc.). L’Ahaaric 
est la langue officielle de l’Ethopie. Il 5e 
trouve que aa famille habite l'Ethiopie et que 
j'avais dans un fond de tiroir tout j‘alphabet 
de cette langue, L'alghabet comporte 34 Jettres 


de bases qui chacune se subdivise en cino 
syllabes, Leurs ressesblances étant  tror 
grandes, ne suis Jlinité au dessin [Ces 


je 
chiffres - 20 signes: 


représentent À à 10: les unités soit 


À à P représentent 20, 30, 40, …, 
les dizaines: 9 signes. 


100: 


Fe représente 005, Le 2éro n'existe pas ainsi 


que Îles nombres négatifs, 


35 s'écrit 7 CE - Les barres signifient que 
5 ce sont des chiffres, 


Cet alphabet et la langue qu'ils réprésentent 
sont encore très usités. L’alphabet cosplet est à 
votre entière disposition, 


hsicalesent, 
Xavier BILLE 


> 
> 
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Progranne "NAV" (Navigation aérienne) 


100 DESTROY ALL & STD 8 DELAY .5,.125 

110 2$=CHR$ (27) &° #b56" LEHRS (0) LCHRS (0) LCHRS (23) BCHR$ (21) ECHR$ (23) 
- Définition du syabole degré pour l’isprisante 

130 IMAGE 15a,ddd.d, 10a 

140 IMAGE 13a,2x,sdd 

150 IMAGE Lba,dd,a,x,22,a 

160 IMAGE {5a,ddd.d,a 

170 IMAGE 13a,2x,sdd,3a 

180 IMÈGE {5a,dd,"° ",22,a 

190 4=0 & B=,4 1 Facteur de base 


216 INPUT ‘Dir. vent +: ‘354 
220 IF W:560 THEN 210 
236 INPUT ‘Force vent : ‘3F 
249 IF F250 THEN DISP ‘Vent trop fort...’ @ WAIT 2 & 6070 230 
256 INPUT ‘Distance oo: ‘:D 
260 IF D=0 THEN DISP ‘Fin...* € WAIT 2 8 PÜT ‘#43 & END 
270 IF D}106 THEN 250 
286 INPUT Cap æagn. Oo! ‘3ÿRl 
290 IF R1360 THEN 280 
366 DISF ‘Ecran / Isprisante 
310 A$=KEY$ 8 IF A$=°° OR A$C>'E* AND A$>°1° THEN 319 
320 1F A$="1° THEN RESTORE 10 € PRINTER 15 :PRINTER 
DÉS RS SERRES er CALCMES Se 
340 T=DtE 
350 DI=Bt (90% (24F)) 
360 D2=D1{4SIN(W-RI) 
370 Ci=DiCOS(#-R1) 
380 C2=7+C1/601T 
390 R2=R1+D2 : _R2SIPIR2+. SHSGNIR2)) 6 IF R2:360 THEN R2=R2-560 


400 R2=5 





LEN(R2S)€3 THEN LET R2$="0"8R24 & GOTD 410 
420 Le THEN FRINTER 1S :PRINTER @ GOSUE ‘IMPR’ ELSE SOSUE ’ECRAN” 





nee eee IHPRESSION -------""-" 


450 IMPR': 

460 IF A=1 THEN 52 

470 W$=STRS (MW) 

480 1F RS THEN LET W$="0"£N$ & GOTO 480 






490 FRIR PRE vent = ‘;W$:1$ 
500 PRINT * = Hp 
si FI NT °F, de base (Fb) =*:B & PRINT ’- ----------  # PRIKT & A=1 
ü20 STE ‘listance = Dita" 
os0 Ki } 
) JFi 1<3 THEN LET R1$=°0° £R1$ € GOTO 540 
UE 


re & PRINT 


‘h° 

ï 3 
D Le 

à PRINT 


590 FIX 1 & PRINT USING 1305" Derive (X) = ?,D1,2$ 

600 IF 4BSID2){3 THEN PRINT ‘Der. s/axe negligeable® 8 G0TO 620 

810 PRINT USING 130:’Der. s/aye =',02,1$ 

620 1F AES(IF(CI))€S THEN PRINT ‘Corr. Tesps negligeable’ 8 PRINT & GOTO 640 
630 STD & PRINT USIXG f49:’Corr, Teaps =7,IPiC1), "arte 

640 STD & PRINT USING 150:°T. corrige =*,IP{C2),""",IP(FP(C2)460),°"* 

850 PRINT ‘Nouv. Cap magn. = ‘:R2$:1$ 

GGO PRINT BPRINT ssssesennnr ee ’ 

b70 RETURN 


639 ?ECRAN’: 

700 DELAY 8 8 Z$=CHR#11) 

710 DISP ‘T,S,U = ‘3 

720 IF T>60 THEN DISP IP(T/60)5°h"; 

730 DISP IPIMODIT,60)+.5)3""" # , 

740 FIX 1 8 DISP USING 1605" Dérive (X) = ?,D1,1$ 

750 IF ABS(D2)€3 THEN DISP ‘Dér. s/axe négligeable’ & GOTO 770 
760 DISF USINS 1é0s'Dér, s/axe =°,02,1$ 

770 IF ABS(IP(CI)DE THEN DISP °C. Temps négligeable’ & G0TO 790 
780 STD & DISP USING 17030, Temps =*’,1P{CI),"*/SEUT 

739 STD & DISP USING 180:°T. corrigé =°,IF(C2),IPIFR(IC2)460) 
800 DISF ‘Nouv, Cap magn. = ‘;K24:14 

810 DELAY .5,.125 & Z$=KEY$ & RETURN 


LRÉRSEITENINNNNNNNNENANNTNNNNNNNNNNNNNTENSANINTANSANNRERSTENNNSTTTERSANTIANNNTANNRNENTENSENENSSREEELETLEIENEANTENTTESENTETENITATT 


Prograsse "SUFREM" (Suppression des remarques dans un progranse Basic) 


10 SUB SUFRENTAS) 

- à$ contient le noa du fichier sur lequel on travaille, 
25 DIM C$(58] 

- C3 contiendra chacune des lignes à analyser. 

) TRANSEORNM B$ INTO TEXT & GSSIGN #1 10 À$ 8 CREATE TEXT ‘F'éA$(2] $ ASS 
Il faut transforser le fichier source en fichier TEÏT, et crée C 
ON ERROR GOTD *ERR? 

Servira de test pour l'atteinte de la fin du fichier. 

READ #1:C$ & DISP C$l1,4] 

Lecture de la ligne courante, et affichage de son numéro. 

IF NOT (POS(C$,*!") OR POS(CS,’ REM ‘}) THEN PRINT 42;,C$ 8 GOTO 50 

Si la ligne courante ne contient ni ‘!° ni ‘REM’ alors il faut la passer entière dans le 
fichier objet. 

IF C$l6,8]="1" OR C$4,8]="REM" THEN 50 

Si au contraire le premier caractère est soit un ‘!° soit un ‘REM‘, alors la ligne entière 
est une remarque, et 1] convient de ne pas la passer dans Le fichier objet. 

80 FOR Jd=8 TO LEN(C$) 

- Si aucun des 2 premiers cas n’a résolu le problème, il faut faire une analyse syntaxique, 
90 IF C$td,d1=""" THEN J=POG(C$,°"?,J+#1) @ GOTD 129 


Li 
Le) 


IGN #2 TO ‘P'éh$[2] 
hier objet. 


Eu 


LH 
DS S 1! 


LS 


4 
e 


JPC n26 page 67 


- Si le caractère analysé est un ", il s’agit d'un aessage, et il faut sauter au “ suivant, 
100 IF C#0d,J1="°" THEN J=P05:C$,""",g+i) 8 GOTO 120 

- Mère remarque avec ‘. 
119 1F C$CJ,d3="!* OR CéEJ,J+21="REN" THEN C#=C$(1,9-21 @ 6010 130 

- En revanche, si on à atteint une remarque, Il faut élisiner la partie superflue, 
126 EXT J 

- Et passer au caractère euivant. 
130 IF CS[LEN(CS)1="8" THEN C$=C$[1,LEN(C#)-11 

- Mais, gros piège, s’il reste un @ terminal, il est nécessaire de l'oter, 
140 FRINT #2:C$ & 6070 5 

- et de réécrire la ligne corrigée dans le fichier objet, 


150 ERR': OFF ERROR & ASSIGN #1 TO 1 8 ASSIGN #2 T0 1 
- Enfin, si la fin du fichier source est atteinte, on ferge les deux, 
180 PURGE A$ 8 RENBRE ‘P'EAS(2] TO À$ 8 TRANSFORM À$ INTO BASIC & BEEP 
- on efface le fichier source, et on renoane le fichier objet de son nom définitif. 
i7ù END SUB z 


tiRITRTTATTNTINLTÉENINANNNENTENNNNENNTENTETTETINNNNNENNNNN ES TANININENENANSSTEINNNNNNSTNN SIN TSSANEANEEANSANSATINANTTTIT 


Frograame “TRIBULLE”" 


- ri-Bulle 
2û DESTROY ALL 
20 INEUT "Dis. de la table="sh 
49 FOR IL TON 
gg INPUT AI) 
&Q NEXT I 
| 70 PRINT “Table en entrée :” 
à 59 GOSUE ?ECR* 
30 FOR 1=2 T0 À 
100 Je & F=ÿ 
110 IF F=5 THEN GOSUB ‘REPEAT’ ELSE ‘EGL° 
125 6070 {lô 


na 3 à 


149 *FIN': PRINT “Table en sortie :* 
150 GOSUE ‘ecr° # END 


199 PRINT 
199 NEXT ! 
200 PRINT 
210 RETURN 
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En °REFEAT’: IF d=1 THEN F=1 8 6070 ‘ret’ 
239 IF A(J)}=A(J-1} THEN F<1 8 SOTO ‘ret’ 

230 Eshid) 8 A(J)=4(J-11 8 4(J-1)=k 

250 J=ÿ-1 


280 *RET': RETURN 


BRLIAIASENAINAESINSETIEEANININNENENETANSNENTITESSNTENNLEENENATNANNANTEITIITINTÉAANNIAIANNNLININETEININNNIIITIENIINIIIINIIAIET 


Prograñme TELE" (Coût d'une communication téléshonique) 


ff DESTROY &LL & DELAY 9,9 

29 IHEUT “Periode de taxation: ‘3F 

30 5=,75 

äû T=IF(TIME) 

ÿ DISP USINS 80:C DIV 80,H0D(C,60),S, TIMES 

hi IF KEYDOWN THEN ENL 

70 U=IP{TIME-T) & IF UP THEN C=0+Ù & GOTD 50 ELSE 5=5+,75 & Q-0+F à GOTD 40 
80 IHAGE 27":° Re 


cn 


SERRES EEASEEEINENTANTINNTIASANNATNNTIASNLSENININALELENTENENTENINANTITINTNNTRNINTINNNINNNINENINENILINTEASEANANANTANIINEEIEIS 


Prograaae “CONPTE" {Gestion d'un cosote bancaire} 


10 DESTROY ALL 8 FIX 2 & DELAY 8,0 & BEEP ON 
20 DIM DI$L141,1$120] 

30 ES=CHRS(ZFIENC MEN RO ASSCHRSEZTIENR TE" À 
4g DI$=* "LESRASLESSAS 


0 DEF FND25(D$)=D$01,218"/"EDS(3,418"/"2D6(5,6] 


70 *CHDIX’: CFLAG 2,3 


80 INPUT "CSLT DBT CRD TT 1 : ",C$5C$ 
90 ON FOS(*12545F",C$)+1 GOTO ‘CHOIX, *CNSL”, DBT’, "CRDT",'TOTAL*,CREAT”, FIN’ 


190 END 
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149 SAISIE’: INPUT "DATE: ",Di$:E$ 

150 IF Eÿ=*" THEN ES=D8TES[7,8J£DATES(A,SI#DATESC 1,2 
160 LIRPUT ‘Intitule: *;1$ 8 I$=1$01,26] 

79 INPUT "Montat: Frs "3h 

129 IF FLASIS) THEN I$=*C"£IS ELSE Ié='D"LIS & M=-N 
139 CALL ECRIT(#1,E8,1I$,H) 

259 6070 *CHOIX° 


219 *ENSL’: RERD #1,05L,T, 

22ÿ J=1 

230 IF X=0 THEN BEEP & DISP "Fichier vide & 6010 ‘CHOIX* 

240 RERD #1,J3D$,18,N 

250 IF M=û THEN J=J+i 6 GOTO 32 

260 IF 1$E1,11="D" THEN DISP “Debit du *; ELSE DISF “Credit du ‘; 


2i% Ii 

286 DISP “Intitule: *;1$#021 & DISP “Montant: “5h 

290 CALL CLAY() 

300 IF FLAG(4) THEN CFLAG 4 & PRINT #1,d;°"#°,"4",0 € J=J+] & {=1-1 8 PRINT Hi,03L,T,{ 
310 IF FLAS(O) THEN CFLAG 0 & GOTO "CHOIX" 

320 IF J>=L THEN d=1 

339 IF dé=0 THEN J=L-1 

340 60TO 250 

350 END 

269 *CRERT': PURGE CHEQUE 8 CREÂTE DATA CHEGUE, 19,26 

370 ASSIGN #1 TO CHEBUE & PRINT #1,051,0,0 € PRINT #1,150,0 & ASSIGN #1 TD à & END 
380 ‘TOTAL’: READ #1,03L,T, 

3970 BISP "Soide:";T;" ("3STRSIXICL,LEN(STRS(K))-373%i* 

406 GOTO CHOIX’ 


410 SUR ECRIT(#1,D$,1$,M) 
420 READ #1,03L, TX 

430 PRINT #H,L:D$,18,4 

449 Lel+t & TaT+M @ PRINT 41,05, T,##1 
450 IF L<15 THEN 520 


470 Pis & Pis 

180 READ 81,F1:D5,16, 

490 IF 1$4°4" TREN PRINT #1,P2:D$,1$,M & P2=P2+ 
ü00 FI=PI+1 

510 IF FI=L THEN PRINT #1,05P2,7,X+1 ELSE G0TO 430 
320 END SUE 
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530 SUB CLAVIN) 

540 F$=KEYS 

590 IF P$=*" THEN 540 

560 IF P$="#38" THEN SFLAG 4 
379 IF P$="4" THEN SFLAG 0 
980 IF P$="#50" THEN N=h-1 
590 IF P$="#51* THEN N=N+#1 
600 END SUB 


PÉISTATATIASATSTENNENNNATNANNENNNTSANSIANNNNENTNNSSILÉSENTITINETENTENITNANTALETENTIENLETETINANENANESALENNNTENINANARENANTARENTEIT 


Frograrse "AHMARIC" (caractéres éthiopiens) 


- Initialisation . 
19 DISP "ETHIOPIA <=)": CHRS (148) LCHRS (149) RCHRS (150) ECHRS (IST) ECHRS (192) 8 RAT .5 
29 DESTROY &$ 8 INPUT "ära =} Ahmaric'iù 
- Tests pour savoir si n est compatible pour une transformation 
30 IF N>=i0*8 OR NHIPISBS(N)) THEN BEEP 8 DISP “Pas de représentation possible" # GOTO 20 
35 IF N=0 THEN DISP * Le 2éro n'existe pas & END 
- Traitement des chiffres au desssus du sillier 
traitement des chiffres au dessus de 2000 
40 IF N>1999 THEN A$=FNC$(N DIV 10*3) 
- À$ chaire contenant la représentation en Ahaaric 
CHR$ (147) représente le caractère des milliers 
DO IF N2999 THEN A$=AS&CHR# (147) 
- Traitesent des chiffres entre 1 et 1000-1 et affichage des résultats 
8 fin du programe principal. 
60 AS=ASEFNCS CRMDIN, 1093) @ DISP ; "€"; 4#;".* & END 


- On vient de traiter le cas où le chiffre des centaines ? 2, 
Ï: passé par valeur = local. CHR$(I46) est le caractère des centaines. 
80 IF {299 THEN YS=YS£CHRS (146) & Y=RHDIX, 190) 
- Traitesent des dizaines (à partir du CHR$(137)) 
50 IF X29 THEN YS=VSLCHRS (1581 DIV 10) & X=RHDIX,10) 
- Traitesent des unités {à partir du CHR$(1281) 
100 IF X30 THEN YS=Y$&CHRS (+127) 
- Fin de la fonction traitement 
110 FNCS=YS & END DEF 
- Centaines - Dizaines - Unités 
Sous- programe de création de caractères 


120 *CREATE‘: RESTORE ® FOR I=1 TD 25 & C$="" 

- Cuaul dans C$ les codes du caractère 
130 FOR J=1 TO 5 & READ D 8 C$=C$kCHRS (D) & NEXT J 
140 C$=CSLCHRS(0) € CHARSET CSLCHARSET$ & NEÏT I 

- LEN(CS)=6, un nouveau caractère est créé 


JPC n26 page 71 


150 GOT 19 


160 DATA 192,38,57,9,6,204,51, 18,44, 200,6, 25, 233,6, 2,12,5,254,4,12 


170 DATA 249,13,10,112,128,295,139,298,139,1933,129,295,139,133,129,133,131,227,151,137 
190 DATA 193,255,191,255,133,185,197,199,203,147,197,163,175,179,197, 129,135, 137,233, 159 
190 DATA 135,137,143,229,159,157,161,197,131,253,229,147,159,227,133,129,129,295, 129,129 
206 DATA 191,201,201,197,191,197,163.191,163,197, 133,227,211,203,231,133, 227,211,219,167 
210 DATA 177,201, 199,205, 161,15 3,169,198,168,193,295,131,131,131,133,203,219,171,133 


226 DATA 177,204,197,203,177,0 


SASYIETSITINTNITRGESEASERTENSAEN SES RSNNSSNANINNENEINNNLANINEÉNTNNIINENTENILNNNENETENTNAANNAESATESNINNTINANILENIENIITINENANNTIENT 
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LE COIN DES LHEX 


HE 
HP7IB 
Hais 


Comne vous avez pu le remarquer, deouis Île 
de février dernier, la rubrique Assembleur 
est devenue de plus en plus inportante, 
aujourd'hui un gros problèas ce pose ! 

La quasi-totalité des progranges BÉSIC figurant 
dans notre Journal préféré utilise des fonctions 
sucplérentaires (FEYHAITS, INVERSE, REUS etc.) 
alors que beaucoug d'entre vous ne possèdent pas 
le nodule FORTH/ÉSSENELER et ne peuvent donc 
mère pas utiliser ces logiciels. 


Ceci est 


st le but de cette nouvelle rubrique 
Nous y 


pensions déjà: un petit essai avait 
ailleurs été fait avec un progragse de 
Jean-Jacques Moreau au acis de gars dernier, 
par manque de place, l'idée avait été mice 
té, Vous avez été très nonbreux durant Île 
e réunion mensuelle à réclan cette 
la FOH F/£ © 1755 
nogbreuses heures 

l'acquisition des 


gaie 

de cé 
derniér 
rubrique et à juste titre: 
Frs, Flus de très 
d'apprentissage, sans conpter 
155 ! 


er 
coûte 


Four résoudre ce 
groscserons donc dorénavant cette nouvelle 
rubrique ("Le coin des LHEY"}, et cela à chaque 
parution de JPC,. de dis nous, sais n'oubliez 
surtout pas que ce "nous" veut dire ‘nous toucs* 
{vous en faites partie) : 


problèse, nous vous 


cette rubrique, vous trouverez tous les 

LEY du numéro courant, listés 
hevadécimale et, pour introduire Ces 

dans la #éroire de Titan, un petit 
grogramse BBSIC (de base !  coëse certains 
disent}. Ce prograame s'appelle M"MAKELEY", 11 
gst !a nodification (très huable) d’un prograase 
fait par des seabres de PFC-Suède paru dans Île 
nouveau journal aséricain CHHU, d'y ai apporté 
quelques aodifications, Notsnsent rendre 
conpatible la taille du LEX créé avec !e nosbre 
d'octets affichés durant son catalogue, 
peræettre une introduction “iaplantable® du 
fichier HEX sans avoir à réintroduire toute a 
ligne courante en cas d'erreur et une 
vérification tenant conpte de toutes les lignes 


ie 
FOrRe 
fichiers 


précédentes pour éviter de réintroduire 
plusieurs fois la sène ligne. 
Ce Oprograsse, relativement court vous sera 


donné tous les avis, ceci pour que Îles nouveaux 
adhérents (ils sont de plus en plus noabreux) ne 
soient pas lécés par rapport aux anciens. 

Son utilisation est fort siapie: faites [RUN], 
le progranae vous deaande alors la taille du 
fichier à créer. Introduisez a taille EXACTE 
donnée avec le lictage hexa (EXACTE est la seule 
restriction !), puis entrez le fichier ligne par 
lione sans onettre la csoage de vérification 
{Checksun) à la fin de chaque ligne. 

Son princige: on ‘“pore dans un fichier DATA 
éé en fonction du nosbre d’octets introduit en 
but de prograsae la réplique exacte du fichier 
Enfin, on substitue l’en-téte du fichier 
DATA par celle d'un fichier LEX et le tour est 


VOUS Le idra 
rallumer votre 8ac 
créé, 


tout de mé éteindre puis 
nine pour valider le LEX ainsi 


Exceptionnelleaent, dans CE  nuféro, vous 
trouverez ci-descous un récapitulatif de tous 
les LEX parus dans JPC depuis février dernier. 
Ces LEY tiennent conpte de la renumérotation des 


tokens et sont des versions optisicées, 


Voilà ! Nous espérons vivement que cette 
rubrique excite encore plus chez vous l'envie de 
grogrammer avec de beaux outils cf, MENU, 
FEPEAT ou FORMAT), ou si vous n'êtes que de 
sisolies utilisateurs que vous trouviez dans dPC 
de beaux logiciels (cf FANTOME, DESSIN ou FORMAT). 


Four le bureau, 
Michel MARTINET (51542, P#12) 


JPC 


n?26 page 73 


JPC 


000: 
Qi: 
002: 
003: 
Qü4: 
OÙ5: 
006: 
007: 
598: 
699: 
G58: 
Ô0E: 
GGC: 
G6D: 
GÿE: 
QûF: 
ÿ19: 
gif: 


012: 


03: 
Qté: 
G15: 
Gié: 
017: 
Gië: 
ÿ19: 
gt: 
Qi: 
Q1C: 
Gif: 
QIE: 
IF: 
ÿ20: 
o2{: 
622: 
ü23: 
ÿ23: 
025: 
24: 
ÿ27: 
28: 


1 
Lis 


5471 
0123456789ABCDEF sa 


44545514C4020202 26 
802E009101727088 E4 
185001719506E200 7C 
FB30000000000000 5F 
912100FF0919100F F9 
A16BDI09F5200500 92 
5F03025200FR1444 14 
2453644210714393 SE 
347207144584477 84 
7844514424072554 28 
4442501FF4118F03 E4 
DBGDSGAS71ASI 360 92 
b137C215435AD25 A7 
681ER1ED7CORFZEF E4 
2A0E109CF4911851 94 
SAS2172201011495 9C 
7E071341CF119808 D5 
32F08091FROBOCF2 Di 
08F670B15F19FAR2 95 
S1331464BFC70814 9à 
SD3OAGABFLABGEF 05 
SEFARAESSCSF AUS SA 
118F13DE0D23068À 9E 
B3A15ES175137062 86 
2789FD6BFICR1158 83 
11C413324RC280FF SC 
8Fe4171071355901 E3 
C915991098508F06 DD 
AALSF7BISISFESSZE 44 
{8DC32F041113713 1F 
SO68FESDBOADIDER 53 
1D31E2043302E7D7 86 
CD4C114BDB6FC70B BI 
15700914D17133E0 ëB 
F1358DC32F04118F SF 
S3DBÔ13608137135 GP 
1G48FOBAALICF1S7 D3 
E28837413508D6C8 95 
BF2BF230F159717F À 
AF2D481ED7A4ECF4 5D 
32148BCA8F841711 DF 
25 335E8DD4 3C 
49007135071548DC AD 
S2F04117E007D207 


2C: 3004248F13DBCADI 
21: D881D31020D48214 
2E: B966001715FED4ES 


CABFOBFOAGCICF 15 


39: 17010772EF8DC32F 
: 010F304RF100F 020 
: 0000900660000151 07 
3: GGFDOCB200009055 A7 
: 454B442F5705F4B4 E4 
: S4041FFF 70001800 ES 
: O8F6BIFO7OSDIFIT F4 
37: 8F2D41411618F871 F5 
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718 octets 


: FO8FB3DB023A8020 EC 


81C1B178F2064D714 57 
21311BE9SF 214243 CE 


3B: OCFABLISIACZ14R7 BD 
3C: E7014159017054€8 C0 


D84R808D574508FA SE 


: BGSU9FER2304906D 56 
3F: B2E2680D97508F13 22 


DBOD230A8B6F2D68 20 


: ODO0D44213302131 01 


AFO1531135D1207F 14 
009680058FBD9IFR SE 
GRFRTOBIANIEFIAB 85 


: 8BF4BF4018FAAZS1 06 


3314848FC70B140C 1 
3173B6A33D84228F 5 
DFEENI7FIS6IEE98 C 
F21448F32281509D 8 
&Cb#891007F4F118 D 
D7DAC910909108C4 E 
DéaFA7OFO110130C À 


€ 
7 
3 
b 
D 


: FADIAC215A08F841 79 
: 7114917116083EFI B5 


19135208FEB83B118 F7 


0: HOBF2146:34B0C52 75 
jt: FG25101088000F71 62 


O6000E 2) 


3: OOOFFR4549573149 47 
: 44542161FF001361 4D 


081371098F2C6004 09 


: 911191551181348D 95 


BACAIBF127008BDF CI 
25C06C000000F7100 58 
Qo0G0000000n7100 3F 


: 0F725346542C0IFF 92 


KEYSAIT 


üoû: 
fût: 
602: 
903: 
Güé: 
Qüs: 
MALE 
007: 
098: 
Güg: 


REYLEX 


90û: 
Gô1: 
002: 


4118FE83818DC32F 08 
ù ZA 


ID? 


0123458789ABCDEF sn 


B4519575{484ASET BE 
802E000291727058 42 
3700025191000000 14 
F719000000006000 BE 
GELOOOFFB4549575 97 
14944542101FF001 ES 
361081371098F2C6 43 
0045111913511813 63 
48D8ACA18F127008 9E 
BDF 37 


ID#52 
01233567898BCDEF sa 
2554450454959202 EI 


8926000201727088 39 


840002500C000000 48 


du gctets 


33 octets 


003: 
ÿ04: 
RE 
006: 


PÉLEX 


G00: 
01: 
692: 
ÿG3: 
goa: 
GQ5: 
006: 
507: 
008: 
999: 
d0A: 
ÔCE: 
ÿÔC: 
ÿ0D: 
QÜE: 
OÙ: 
ÿ19: 
Gii: 
g12: 
013: 
ÿi4: 
Qi5: 
ÿté: 
917: 
ÿ18: 
19: 
ÿik: 
Qi: 
GiC: 
Gil: 
ÿiE: 
ÔiF: 
ÿ20: 
g21: 


022: 


REPLE 


ÿû: 
501: 
602: 
603: 
ÿ04: 
665: 
(06: 
007: 
908: 
üG7: 
ÿ0û: 


F710006060000000 F2 
071006F725546542 F0 
CO1FF4LIGFESSE18 90 
DC32F0F 25 


1401 


0123455799ÈBCDEF sa 


9SB4C45485020202 58 
802E009201727058 DF 
8929010F30400000 £8 
F026005006000609 04 
015196FD06E2990D FI 
90551548442F5705 BE 
F&B454041FFF7000 2D 
189008F691F07090 DE 
1F178F2D41411818 SA 
F871FO8FB3DEOZEA 00 
802081C1B178F206 63 
D71421311BES5F21 FD 
42130CF4B1181AC2 ÔF 
1847E70D41590170 62 
S4E8D84A808D5945 47 
ÜSFABESOGFEAZSU4 ÀB 
908DB2E2980D9750 65 
8F13DB6D23GA8BEF B2 
2D880000D442133C BA 
21314F01531139D1 37 
207F009680088F8D 53 
S1FBOGF670B1401B Dé 
FIASSBFABFAGISFA 90 
A2513314648FC70E 57 
14CC5173B6A55084 EF 
228FDF8E017F1561 AD 
BES8F21448F322B1 11 
SD9DéCe4491007FA 96 
FI18D7DAC7199091 27 
J8CADESFASHFC116 88 
1S0CF4DIACZ15408 SD 
F641711491711806 18 
JEF119135208FE83 F2 
B\1BB98F 21461349 CC 
DC32FOF dF 


X  ID47i 


01234567898BCDEF 


253405C454850202 

802E00120172705 

38290176G8000000 SF 
F710000000000000 68 
ODS000FF 25340804 55 
14345447£01FF8A9 EA 
001811C114811692 ÎC 
E70962A014E56600 AA 
COCDS8D11C8DBI4B ZE 
18D971FE044447490 A5 
DF684488F83DB08A CC 





257 octets 


32ÿ octets 


00B: 88534200008Bb4D8 01 007: 0 D6 02b: BF22080F680C5104 1E 


00C: 0C214F1081715541 CE 027: 94E7086441854203 Cb 
00D: 1BBAEBOBABDO6110 14 ATINLEX  ID#71 68 octets 028: 038127D1011A25A0 70 
Q0E: 8ABBOO17C9F1351C OC 029: ESEC208740031035 Eb 
00F: FO76AA11371F495F 6A 0123456789ABCDEF sa O2A: 4031027333EAAG0S 9A 
010: 2143135010C80C21 B2 02B: 008908589135892E F5 
011: O88FB3DB01371358 89 000: 144545E4C4548502 9 02C: 488434731326B308 3A 
012: F534B110C137C213 25 601: 802E002201727058 28 02D: 6C220b1341B244F2 2B 
013: 38F83DB0137C2135 1E 002: C800017808000000 95 02E: 15641340794A80B4 52 
014: 1038F83DB0718F13 F1 003: F710000000000000 3C 02F: 653175E219760570 7A 
015: 710AC2D7D2109118 D2 004: 0E1000D7144545E4 3B 030: 884A02480C02380C 67 
016: ABAISEBF2BF2BF24 3B 005: B01FF05000F20001 C9 031: 12231FF206F1F7E4 66 
017: Bb10B1BB98F2DB14 12 006: 37061F144F214431 AS 032: 275F007135147757 96 
018: 411311AD5DBE98B6 D3 007: 1E9b240CE15D0071 A2 033: Fb4B0742Eb81F072 Ek 
019: 65DB13411A1351CF DO 008: 358D84A80BFA2C20 DE 034: 2E72BE10B72227AÀ 2F 
OA: 11BD574BEBADA37S 40 009: OE1101ECO0008DB2 6E 035: 007135147794F11B &F 
O1B: DE1331CD1471C113 1F G0A: E2003BDCF250F 29 036: 7CDEB7SAC31D0753 6A 
OC: 7111E2137DA7BBEC 28 037: F3111647070ED681 AC 
01D: 2136D87D1F704011 B7 PLOTLEX ID#5F 835 octets 038: FO7EDD7EGE1OB7ED 3A 
O1E: BESSE27D0FDB1341 E9 039: 1758007135147750 C1 
O1F: 19057F8EE91351CF 65 0123456789ABCDEF sn 03A: F6D3074BD881F072 7C 
020: 3420000D57110136 BB 03B: BD724E10B7B3E10C 0D 
021: D7L1ABASES666F13 9E 000: O5C4F445C4548502 A5 03C: 7BA1725007135147 B 
022: 7E98B692C91358A9 CB 001: 802E003201727058 41 03D: 72DE11C756E73CE1 B4 
023: 001811C114E14D11 95 002: 2B600F510D000000 70 03E: 1B7ASES1D078BE7B 60 
024: 9EGE6109CDCDS0E8 44 003: F380000000000000 24 03F: E1220106ED17D008 A3 
025: DD44901FB98F2147 36 004: 054400DD00C4400D 6B 040: 750031216D9E1F7F Cé 
02b: 135702EDA3401000 17 005: A103F300D5204440 D7 041: 6F214F0A017DDF7A 9A 
027: EAL19BF6O{B1ICF1 49 006: OD030B7400DD30FC B5 042: EF8550914D01EBDF 78 
028: 18BF4BF6BF613411 06 007: 400D8406D400D550 64 043: F47DFF7B6FD4EADF D7 
029: 9BF2BF230F15D68D 34 008: 6B300D0604D400D1 35 044: F46DFF7B5F44E9DF OÀ 
O2À: C32F0 7B 009: 704D300DE70B1400 E7 045: F4SDFF7B4F2SE8DF 19 
00A: DB802B300D8909C3 99 046: F44DFF7BSFA4SADF ES 

FILELEX ID471 64 octets 00B: 00D934F4C4F42510 BE 047: Fb4DFF7SAES4E6DF OD 
O0C: 9343394A55420744 D9 048: FF2DFF7BAES4ESDF 77 

0123456789ABCDEF sa 00D: 25147530784F4D45 69 049: FFIDFF7B9E3559DF D2 

00E: 4409C4142454C450 D2 04A: F61DFF737E84D2DF 47 

000: 6494C4S4C454B502 7B 00F: 7C4449425609C445 AÏ 04B: F9DCFF73B07E4F84 CD 
001: 802E002201727058 10 010: 950554707D4F4655 08 04C: 50914D312178DD31 3C 
002: 3800017707000000 54 011: 480D05C4F4454554 OA 04D: 14671F41DFFEDCFF Dé 
003: F710000000000000 01 012: 259092544251475A 99 04E: 797C681F07280792 9A 
004: 091000F96494C454 23 0135: 092554355445B092 01 04F: F31057DAD776CBFE 20 
005: F3701FF411136068 81 014: SD4F46554C0B3354 47 050: 83B1170157494E12 B3 
00: F59B9057097C908D C4 015: 45F42574D01FF8D1 31 051: 17014381C17D8487 26 
007: A9390137068F77F9 1A 016: OFALBDIS6818DD96 D7 052: ABOA1960560668D6 7F 
008: OAFO480B44BF4071 99 017: 3020311F96200017 4E 053: 6BE7BCFF87CFF783 29 
009: 351CF1517071348D C3 018: A548647001BFA2C2 IC 054: ELS7ACFF88CFF782 71 
Ô00A: C32F0 (A 019: OFEF590C00008D53 41 055: EC4B7CFF72CFF342 2F 
OA: 0300372CF73CF591 CB 056: A7F275708D010011 BS 

KBEEP ID#71 38 octets 01B: BDE&A20038FAB6SO C4 057: B2A7F215E61A388F 80 
QC: 8D271308DF3E207B 3D 058: 15Ch1A07BF31F314 E7 

0123456789ABCDEF sa 01D: 04E3B70018498F99 38 059: C8F73321E04D0831 A5 

SE: 1508D003508D3945 05 OSA: C0333200809C1F27 B4 

000: B424545405020202 AA OF: 08D303308F019E04 1D 05B: 8F21471351C41433 A9 
001: 802E002201727058 3F 020: 3317F32300B24A2C B9 O5C: 4500008A2D07E002 56 
002: 1500017000000000 01 021: 4709BEDIACABF2EA 8F 05D: 6B30038D84480061 EB 
003: FE0000000800001F 80 022: 21AF68FE14B1AC90 7F OSE: 371F0F7F21451D5F 8D 
004: F351B19614000DB10 07 023: 40133B0008DA9390 AB 05F: 0715571E508F1517 83 
005: B0420548E3000732 A9 024: 10A84694AD031D27 4E 060: 1DS51D980F526A825 22 
006: 0208FO04BEO11BD70 A6 025: 35011A0484425302 A9 061: SOAOE27AB2A0E1SD C9 


JPC  n26 page 75 


062: 7042032CFBBFABB1 57 001: 802E005201727058 4R 018: 2B112210317F8FC1 EC 


063: 154331FFDSDO0E415 C3 002: 9B00017000000000 2E 019: DBOBF32281123313 C1 
064: F396A1296581BF8F D5 003: FE0000000800001F AD O1A: 89E65112231709E8 90 
065: B9E2C0F6F6B62551 AB 004: F31B196140001103 70 01B: 901226700608034D C5 
066: 17ASAD3332008DA9 Bé 005: 1B09664FDBDS317F C5 01C: 50001B442E28B680 07 
067: 390175147D507135 DB 006: 8FC4631D9D7SEDIF D3 01D: 1A4A1E31D28B8801 60 
068: 17413704147C9061 24 007: 7BBF2D231C28FFA0 24 O1E: A401E136C2C21361 FA 
069: F308F2153717F15F 24 008: B11FE74F2AF214FB 47 O1F: 4A11AAESAF230196 C1 
06A: 7D527B0844005289 3C 009: F4BCEOB44041F7BB EB 020: 9COAGBABDEAFFAE7 78 
06B: 0E2080D51E5F7F15 DO 00A: F2310381490BE0A6 2F 021: 0Eb2123AE811310A 53 
06C: 771D0F0614713507 D3 00B: A149171AE0B10A6A 29 022: AEB969AOOEBEBAOO 7F 
06D: OF 37 00C: 1491F7B8F28F7415 53 023: BEEOEb61481128FB BB 

00D: 182184001 27 024: 13B1120119137118 1C 


DRIVELEX 1D#71 277 octets 025: 8D912F0 39 
FKEYLEX  ID#71 81 octets 


0123456789ABCDEF sa ENDUPLEX ID#71 252 octets 


JPC 


000: 4425946554C45485 D4 
001: 802E004201727058 77 
002: E220017904000000 3F 
003: F0200E3008400000 00 
004: OBAOOOD110EC000D 7F 
005: D4494351424C4549 2A 
006: OB54E41424C454A0 48 
007: 1FF10200120402C4 0D 
608: 568702C811054427 EC 
009: 96b75627D20EAECF 76 
O0A: F31D29614000D2A6 7A 
00B: EBA2400074100005 44 
00C: 044D2C454851FF00 Fi 
00D: FF07133AC0B44821 04 
00E: 01E5100321007260 E3 
00F: D2AGESA2C434802E EQ 
010: OBA&74D2A8E4A223 C5 
011: 1007F00076303480 43 
012: 2E0BA2E1DSD2A6ER DI 
013: A691D915D38408F2 BA 
014: 12018D84A8031F34 Cé 
015: 3h048F87B90D3CFB 54 
016: F77F90484AC2B469 R7 
017: C3551371088FD979 EE 
018: 0137133C2D735179 FA 
019: 0À02515B59122317 E3 
O1A: A1S78BFOS13758E3 91 
01B: 1938D39390331017 3C 
O1C: 8DA939031C347E17 BB 
01D: 51432034E3000EA1 A6 
Ô1E: 33D41537970FC137 34 
O1F: 174679F201181351 F1 
020: 7FD015R3018FC9ES E3 
021: 050287722314C8FE A4 
022: EC20AEA8ODF8D624 BF 
023: 508D20F208D27130 3A 
024: 8F957508D00350F 01 


EURLEX  ID#71 90 octets 
0123456789ABCDEF sa 


000: 345325C454850202 A0 


n26 page 76 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
004: 
00B: 
Q0C: 


DESLEX  ID#71 281 octets 


000: 
601: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
00B: 
00C: 
00): 
00E: 
00F: 
010: 
0i1: 
012: 
013: 
014: 
915: 
016: 
017: 


0123456789ABCDEF 5e 


64B45495C4548502 74 
802E005201727058 1E 
6A00017B0B000000 41 
F710000000000000 E8 
0E10000764B45495 FD 
BO1FFAb0O0E50008 8B 
F29D800910834010 5E 
00D534444F2DAEGE 44 
6B0OBF8F803101101 Cé 
B444F21481801524 78 
B44550A4C1504808 F2 
OBDB4ABOBDD97308 ED 
D39450F 25 


0123456789ABCDEF sn 


445435C454850202 A2 
802E006201727058 53 
7320017C0F000000 91 
F230000000000000 34 
OCEO000F31016000D 87 
4200B000FF20DF00 39 
ÔFFS4F4E44525143 E5 
945C0094E 4653425 EE 
3553400794 46542E CB 
09051494E445F01F C4 
FF30001400034C50 63 
001F401E27C20310 7B 
6IE002E7E1031C41 87 
E003E70108D84A80 C9 
8D303500314BBEC1 15 
49171CECEBAEDEO! 6A 
4111371351088F83 2A 
DBOD&BAAEO7BCF12 34 
81358DC32F000138 A1 
1081BEF3E2D015A0 C7 
BFB13H11201188D9 FC 
12F0888331361081 BE 
371091358FC8CB01 EA 
GA8F322811228F32 DF 


0123456789ABCDEF sa 


000: 54E4445505C45485 C7 
001: 802E008201727058 78 
002: DF10017012100000 9A 
003: F920000002500000 93 
004: OABIOOFFO0ACOOOD 7A 
005: C10E6100FB54E444 2) 
006: 55054201954E4445 9B 
007: 50511F3545142545 76 
008: 550542211FF31BF9 2D 
009: 613131CF981C1531 18 
O0A: 118D73200A8FFF81 2A 
008: 1D0E4003200A8FAB EC 
00C: 8115DEDB10831FCS EE 
00D: FC463159C31DC8FC F3 
00E: 46314BB31DC8FAFS 4E 
00F: 311378D626208DD9 91 
010: 7308D394509FFFFD 87 
011: EFFF8F6B1FOBFE44 FD 
012: A131D021840137FA 76 
013: 809FA8B354137155 14 
014: 1208F7B181D23021 72 
015: 083200A10A8F13DB 1F 
016: 01371288B6A111A8 BE 
017: FI4A118D84A808DD CO 
018: 4490D8D2310C8BA9 93 
019: OBDAL14110111A8F C5 
G1A: D791157D11013011 DF 
01B: 98F771B18D844800 6A 
01C: 032808590003200À FF 
01D: 1331018FAB811137 EA 
O1E: 136D58F064A11111 15 
01F: SISEL14A31D09622 B4 
020: 1AE6BF4058116158 11 
021: ED91348D7B181  E7 


CHDI&LEX ID#71 77 octets 


0123456789ABCDEF sm 


000: 34D4441363C45485 BB 
001: 802E007201727058 70 


002: E900017313100000 98 
003: F710000000000000 3F 
004: 002000D934D44413 93 
005: 63311FF95000B500 F4 
006: O1F675F2143131AF AD 
007: 2A4E2380C315D517 DE 
008: SA4ESSF1371FO0BSF 4D 
009: 20D1451740D57F1F BA 
004: 679F215548D84A80 66 
00E: 8D303508D2BF30F 93 


TYPELEX ID#02 67 octets 


0123456789ABCDEF 5e 


000: 45950554C4548502 26 
001: 802E007201727058 DE 
002: A800020030300000 C7 
003: F710000000000000 &E 
004: 071000F745930554 97 
005: 031FFC1115BR6B148 E2 ‘ 
006: 144F22E309986B0À A2 
007: 82503A4494C2230D D4 
008: BOEBG44B017117F5 ID 
009: 31137C2137580507 EE 
O0A: BOEBDRS2FOF 30 


COMBARK 


0123456788ABCDEF sn 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
Q0A: 
00B: 
Q0C: 
00D: 
Ô0E: 
Q0F: 
910: 


34F4D42414252502 BA 
802E007201727058 42 
5510017415100000 71 
F020000000000000 OD 
0A2000F90073000F 68 
514252541734F4D4 CD 
24511FF882275308 9A 
F499C08D612FO0B82 14 
27F308F004001118 &AÀ 
FFBéCOBF7S7E0AF9 43 
AF7AFOI13AFB1128 CA 
FCA4CO8F499C08D8 DI 
12F08FCCBO17F7C 9C 
40110119720001BC 1B 
E8F439C0BF365C0B IA 
F737E08FO004D0110 73 
BFFBÉCOBF757E08F 01 


ID#71 168 octets 


011: 
012: 
013: 
014: 
015: 
016: 
017: 


HMGLEX 


000: 
001: 
G02: 
003: 
004: 
005: 
Q0b: 
007: 
008: 
009: 
Q0À: 
00B: 
Q0C: 
00): 
Q0E: 
00F: 
910: 
Q11: 
012: 
013: 
ÿi4: 
015: 
ÿié: 
Qi7: 
018: 
619: 
Qi: 
018: 
diC: 
Q1D: 
QiE: 
Q1F: 


C14D08FCA4CO0110 05 
01097D1011876101 76 
10119268F674D040 60 
OBC2080DFB9922ÀF 77 
A20322009B8318FF CO 
B6COBF4F6CO4008D EB 
91FB0 50 


ID471 279 octets 


0123456789ABCDEF sa 


84D435C454850202 DS 
802E008201727058 92 
3320017619100000 F6 
F230000000000000 99 
0E4000FBO0E8000F 0B 
61058000FF10FB00 93 
0F784D435B261784 9A 
D435D271584D4358 BE 
138425911FF88228 35 
507880799170807B 29 
618F363C074E0840 1B 
6E2088228507F307 E9 
071773072418FA91 57 
E056D81184074A07 OC 
B117EE0AF22ES06À AB 
FICE8FAS4COBFC14 DO 
DO8F363C077B08FC 09 
AACOGA40B1184071 ES 
b07E907BACAF22D3 BÔ 
163RF7EBBFCA4COB 64 
FEGADCO74BOBFCAA4C 3C 
OBFC14D08F363C08 41 
FSF3D08F363C0870 BÔ 
008218F499C08D83 ES 
2F0BFDFBEOBFFBEC 32 
08F9D3D08F4F6COB 5À 
FSF3D08F9D3D0948 FB 
BOACOSSOA4CEF 363 04 
COUSAF22ES0LAFTE 4B 
bE&OIBFAS4COBFOO 14 
4D08F4F4COBFCI4D BC 
OBFOG4D071BFOIAF Bb 


020: 
021: 
022: 
023: 
024: 
025: 


XERRLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
008: 
00B: 
00C: 
002: 


STKLEX 


000: 
001: 
002: 
003: 
904: 
005: 
008: 
007: 
008: 
009: 
Q0A: 
00B: 
OÙC: 
602: 
Q0E: 
00F: 


0010 CALL MLEX @ SUB MLEX & SFLAG -1 © PURGE AH & INPUT "Nb. d'octets: 


0020 CREATE DATA AH,!,N-8 & A=HTD(ADDRS("AH")) 8 B=A & GOSUE 130 
0030 @=1 € X=0 8 INPUT “000: 


0080 DISP DTHSIX)T3J; & INPUT "2 ",P$I1,MODIN, 16)];CS € GOSUB 90 
0070 POFE DTH$(4),C$ & PÜFE DTHSIB), À$ 6 CFLAG -{ & END 

0080 DISP DTH$IN)I3]; & INPUT ‘: *,P#;C$ 

0090 DISP DTHSIX)I3j; Æ INPUT " se *,"--";7$ 

0100 M=S & FOR Z=i TD LENICS) @ M=IF(NUMICSI7,21147+M) 8 NEIT 7 


0110 IF D$=DTHS (MOD M 


1,258 PM 


“,P$:A$ € C$=A$ & S=0 & GOSUE 90 
0040 0=2 & X=1 & GOSUE 80 & AS=ASLCS & A=A+37 8 N-N12437 & Q=3 R SFLAB 5 © FOR X=2 TO N DIV 16-1 
0050 GOSUB 80 @ Cé=C$LS1FLAGIS)+1] & POKE DTH$(A),C$ @ A=A+IB-SHFLAG(5,0) 8 NEÏT X 8 G=4 


r 


THEN EQSUE 


LS 


1120 Pisces. f RETURN 





22E304AF7E601137 DD 
1081FBABF21577AF 48 
71CF157712813511 FB 
8011371FB98F2151 59 
717FAF4151713517 CB 
FOI 01 


0123456789ABCDEF sa 


85542525C4548502 17 
802E009201727058 DD 
8B00017A1A100000 06 
F710000000000000 AD 
071000F785542525 BF 
ALIFFB118FBCESID EF 
6BFC2530346E7F21 BE 
37AFOAF214B328E3 CA 
D78F943B1D21C114 OD 
FCAD88F74030DARC DC 
OBAOE18B7B034865 1E 
O0CAAF23108CA8R4 EB 
S0B44AF2ACEBF617 39 
F8D6i2F0F 94 


0123458789ABCDEF 58 


354584C454850202 E9 
802E009201727058 ÀF 
BDGO017B1B100000 F8 
F710000000000000 9F 
0020000935451434 60 
B4B11FFD90001900 DS 
004BFEBIFOBFECES F5 
1440D08ACAGE4D2S 17 
1018RA40DA1O01FE BB 
75F214707D23088F EE 
943B1DBC21742217 Bi 
41450D57FDB15511 16 
OCCDB23AF230315D Di 
5175CC56F1F479F2 F2 
D415908DB4A80BDE 21 
bA208D39450 02 


*:N 8 LE OFF 
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1D#71 90 octets 


. ID471 107 octets 
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JPC 


REPEAT 


000: 
001: 
002: 
003: 
004: 
005: 
00b: 
007: 
008: 
009: 
004: 
00B: 
00C: 
002: 
00E: 
Q0F: 
010: 
DE 
912: 
013: 
014: 
015: 
Ôié: 
017: 
018: 
019: 
O1A: 
018: 
O{C: 
012: 
QE: 
QiF: 
020: 
Q21: 
022: 
023: 


MARGELEX ID#71 92 octets 


Qûc: 
001: 
602: 
003: 
0û4: 
005: 
Q0ë: 
007: 
008: 
009: 
008: 
GOB: 
Q0C: 
00D: 


0123456789ABCDEF sa 


2554055414450202 El 
802E008040101000 37 
9120017C1C100000 89 
F710000000200000 28 
03B100DR25540554 7E 
1445C11FF31C1981 0B 
4000248FDD410716 1E 
04828F08B108F898 53 
108F851318F2C600 57 
AC18FEEO10D91082 99 
48FBA41082103731 30 
08FD7321863EC313 AÀ 
bSAD8FORB108D127 55 
00315C8FC4831350 10 
00007492108RFOAF C4 
21B989F21560BBEA CC 


OC8FBBCEOLIBAER7 17 : 


9B0315C8FAFS3128 29 
8F7FCO01FOB4F2D0 4F 
14BCCD231E08FE6C 60 
E02034F64F2E9135 FE 
15723030E06A0C49 8B 
OA26bEFFA2647131 7C 
SC8F10831AF2B266 5B 
CA401BDF3E21F344F SD 
215203079020278D DD 
F1B084F2153292CF QD 
BL4AD1AE80215329 FD 
2CCA7CFEBSSF1BBF 81 
3622515C515A5912 3E 
6015052003140003 EF 
40008F6BIFO8FBCé 65 
315C0D2A0E8BA90B 30 
DO29E0B8C1R989F2 4C 
1500BD84A808D394 OD 
S0BDE8A20 FE 


012345678SABCDEF sa 


D414237454C45485 BF 
802E008040101000 15 
DBO0017D1D100000 80 
F710000000200600 3D 
085000DBD4142574 18 
94E4D11FF31C1961 Ei 
4000DB10B1F789F2 7E 
L14B1EE74F14F9669 30 
08FASCEO11RD7007 FB 
4000B30008F871FQ SD 
BFRCAS15708AC40D A4 
031069EA4ODAIF78 92 
9F2CC1498D84A808 C7 
DE6A208039450 ZA 


n26 page 78 


1471 266 octets 


MENULEX 


000: 
o01: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
Q0B: 
00C: 
00D: 
0E: 
00F: 
010: 
Qi: 
012: 
013: 
014: 
015: 
0ié: 
017: 
018: 
019: 
Olâ: 
018: 
QiC: 
01): 
Q1E: 
Q1F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
927: 
028: 


PRIMLEX 


000: 
00i: 


009: 


0123456789ABCDEF 5e 


D454E455C4548502 BF 
802E009040101000 EC 
D620017121200000 03 
F710000000000000 AA 
OF1100F7D4S4E4SS 56 
121FF8FBCÉ315C0D 9D 
2A6E8BAGORDO29E0 Bi 
18765F2146071A29 6F 
bF14GBAEBOLA26SF 33 
14613414A31C2982 DB 
A218390C50163316 AD 
C8FB&A8O4117F805 Ef 
1028D39390161158 Al 
13410A31C2AE531D EB 
014496001619682 31 
F118A6E10896E991 21 
011FB98F21B045F2 SC 
7E108FFDIS111111 62 
A1358F327908D572 AF 
511577154717F18F 78 
271571134120018F AI 
E92208DEE0108812 89 
71FE17F103D0E4A4 FB 
EA4E4CO7ADEL7F12 E2 
311BF2F2AE61328F AA 
BIDEO1338FBIDEO 31 
0410810B740002FF A7 
071358FE0C101BE9 3F 
8F21F045F2748F8F 60 
88B70779E787F8FE C4 
21208F3E320B2990 DD 
33430237102AD103 2E 
AC3062640005D011 CB 
BAGE96ERO1IBAEZB 84 
b610810B85AFI1BD BE 
AF4F4B669E87ELIE ED 
DAF4F4RESSBD7EFE ES 
BFE9220D011BAEAE 21 
FBI3B104AFEL14BF 48 
AODEO131B8FAUDEOR 17 
D912F08D84A80 27 


ID#71 


01234567B0RECDEF 5m 


052594D4C4548502 9D 
802E009040101000 FA 


: C210017E1E100000 59 
: F710000000000000 00 
: 071900F7052594D4 00 
: E1iFF8118FC!DBG BO 
: O0AF210922719021 35 
: 7BB0227580227F70 DS 
: 1118F322B1AF2D6R 24 





nrAge 


FAGABFBBCEOSF ARC 


1D471 308 octets 


148 octets 


008: 
008: 
Q0C: 
002: 
00E: 
00F: 
910: 
oil: 
912: 
013: 
Qi4: 


PRINTLEX ID#71 365 octets 


000: 
001: 
002: 
003: 
004: 
005: 
008: 
007: 
008: 
009: 
008: 
00B: 
00C: 
00): 
ÔCE: 
Q0F: 
010: 
oil: 
012: 
013: 
Q14: 
015: 
016: 
017: 
018: 
019: 
Qi: 
018: 
Ô1C: 
ip: 
O1E: 
HE 
020: 
021: 
022: 
023: 
ÿ24: 
025: 
ÜZé: 
027: 


172: 
Uzd: 


0 


V£7: 


E08F223B11189722 BA 
4248F674D04A5247 9C 
C302276302470302 91 
27A20247420267E1 07 
0227810267210b29 BB 
Fb0501188D612F0A 4À 
F280C01041118F32 05 
2B1D6AFODAIIACAB F7 
FB13B11011101198 67 
FBA4COGF4FBCOS00 05 
071198D612F0F GE 


0123456789ABCDEF 58 


052594E445C45485 34 
802E000140101000 3A 
Eb40017721300000 BS 
F170000000000000 80 
OBC100DB000D100D 86 
bI0BE10ODDI0DF10 63 
0F82042200DF2003 95 
200D63034200D140 33 
B8200DC4093300D3 F3 
S0CA3OOD66OEC300 35 
D72454C4C472724F OC 
4C44482334259275 1R 
435344242364b4B2 DB 
3C464C27D4F44454 bb 
D2705542564E2305 9B 
CAF2F59E4445425C 56 
494E403775251405 05 
131FF84466008542 3D 
0048F73321F0831D 9D 
031048D393900713 BI 
5E6D7700007D534D 05 
1000C908D608D020 A3 
153101874008D848 F5 
B014A310E 9620008 9F 
8D30350335402181 Cé 
BFDFC2014B8DCF25 3 
OBFBBF3031549b6F 2E 
11718FA2C200E1CF 5B 
1ECBFO0BDS30508D 18 
B2E208FE7A204B17 15 
5108D6CA208DE6A2 2F 
08D074508D271301 1A 
BFFFA7FFF780F170 2À 
ABFFFFOFFF745F47 Ab 
O70FE1FO79EELEO! 54 
SFFFA4FFF74008D2 2E 
F1F659F24E214D7À 6E 
CE1D001001371091 AS 
351C12031B114D8F A2 
064A1840807H1811 A0 
OFFFAFEFF74RF748 4E 
EACOCEEFFSEEFF7F 34 


2h: 9F7FBEROBDC2E90 2E 


CSECresI/7 


1 L4FFFSSFFF74BOAF BE 


Q2C: 
02): 
ÿ2E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 
036: 
037: 
038: 
039: 
034: 
03E: 
03C: 
03): 
Ô3E: 
03F: 
640: 
041: 
042: 
643: 
G44: 
045: 
Qàb: 
047: 
648: 


ONKEYLEX ID#71 


000: 
o0t: 
092: 

j4: 


£ 
J 


ÿ07: 
(08: 
009: 
004: 
008: 
Q0C: 
G0D: 
QÛE: 
Ô0F: 
010: 


2496976D70431034 3 

GABFE1DEOBF12DE0 B5 
3ASB162B60035A72 BA 
FSBF1SCA13608871 5D 
E9SEFFEREFF/36ED 55 
031C4540E47D208C 3E 
4E048F871FOBF2ER E2 
21044F0AF2328219 CC 
F2008D91FR0AE7D8 B2 
755F367B162C615C B4 
6166815815310322 C7 
D4D1A6A148181811 FE 
ODSDEREB14C16151 9E 
1014C18E700007D4 54 
349BEFFC20613606 9C 
6B6D6FBF9SEFFAIE 7D 
FFL448F504505D17 DO 
24DBB162Cb732307 84 
63836613C4743F17 B9 
F1331011BE95F214 16 
GBBE1213331647A3 R7 
F1111318FDF8E079 9E 
0F13313331057BIF C2 
6ASD3SDFFB6DFF70 2F 
3D4FO7CCCA4RIE246 30 
047FRC4B1624548B OA 
SDFFOSDFF750D411 47 
TIACSB1623713347 91 
25058162370334F SA 


61234587894BCDEF sa 


FAE4BA4S49SC4SARE 67 
802E001140191006 94 
B810017F10200000 3F 
F020000000000000 DB 
0A2G00F3108C000F DD 
F3455253544F475E 53 


: AFIF345525358454 7E 


9535021FFO00A8280 15 
6808F300a02F0C4C 45 
4RFS8ACEODA40D82 74 
77E505802E 693028 09 
7F405802€6720247 OA 
0405802E85102871 86 
305412E6300B07B0 SF 


7B07B0720A82A0E8 73° 


GO8080AFR1328D91 54 
2F0D4C40C5BFC401 ED 


155 octets 


oi: 
012: 
013: 
014: 
015: 
016: 
017: 
918: 
919: 
Q1A: 


INDATLEX ID#71 147 octets 


Q0Ù: 
001: 
002: 
003: 
004: 
005: 
008: 
üÿ7: 
008: 
009: 
QÜ4: 
00B: 
Q0C: 
06D: 
Q0E: 
Q0F: 
diû: 
ii: 
012: 
013: 
014: 


FORMALEX ID#71 


000: 
001: 
902: 
003: 
004: 
005: 
006: 
007: 
0ÿa: 
009: 


0013610A13710R8F E3 
D4DOOBFEEOULOAF34 73 
C2AE4BFSES20F294 79 
003A402384033C40 DB 
2AD403AE4OOOAFE1 4F 
101511128D912F0B EE 
07B07807B07B07B0 B0 
F2068DF2E44FF2E8 9F 
BEF2E62FF2E490F2 EB 
ERODF2E87CF ES 


0123458789ABCDEF sa 


94E4441445C45485 CB 
802E002140101000 FF 
8210017232300000 2E 
F710000000000000 D5 
0É1000FD94E44414 03 
455442231FF00137 78 
1091361047040B1C 9C 
34414455402A3022 19 
2B1ESA4A4RICSF2E 8F 
1ESD4D4B1C3F2BLE 30 
31414B1C322FF071 CB 
358FEOCI108FFDISI 72 
8F99C418FASA8LIL 15 
A1341191358508FE Dé 
D58117F17115FR17 84 
B1331011331CF812 2C 
81231F28F234BR1DA FE 
8F834B129B92892B 93 
92892892R92D6243 17 
1F22015578F08441 39 
840807B181F 21 


0123456789ABCDEF sa 


b4F425D414C45485 27 
802E002140101000 58 
6930017228200000 A1 
FB30000000000000 864 
066100F110EA200F DE 
020EC100F130E110 34 
0F24070000FD3454 7E 
E445942542228345 AB 
43559293432D64F4 1D 
23D4144542420255 8D 


45 octets 


0ÛA: 
008: 
ÔûC: 
00D: 
G0E: 
00F: 
910: 
il: 
012: 
@13: 
014: 
ÿ15: 
0ib: 
017: 
918: 
019: 
01h: 
018: 
O1C: 
01): 


058: 


4445533544952B35 D9 
0514345442621FF0 FD 
48FB3DB013EGF534 92 
B1137C2109134135 28 
D385084184231024 27 
ESCC4E2851CC1811 B3 
4E965F08708EE 745 3F 
05808408521C1140 28 
31D86011861C0862 95 
70171CF018118FBC 96 
b314400017F13713 EA 
51098F0848173004 05 
B231025908F40581 5F 
CCS8FO1411714F11 C7 
S8FB14B11568408F 62 
064418D7B1818091 SE 
FB0842274508F13D ED 
B0137135C21098F0 ED 
64A1118C642D8A88 3F 
18BES1EZADODABIC EF 


: B1C7B7F0508F7B18 9F 


18FE83BIBDC32F0B 59 


: FBC6313598480917 7D 
: F100018DD4490842 33 


27ADF769E119110E F9 
244EE24FD10ADA1S DF 
418F41D13618495F 14 
21328BEFB119AF0D F4 
A1S7ISSERBIC1188 79 


1 B6S4BA2ASESSARSS 03 


ERFSDBIOBSFERCES bb 
20108D8E57320110 34 


: 1IBE2CD751011A13 FE 


S6CCE31528D35390 46 
D73102662014B171 19 


: 1481619661FD4580 85 


14C161CC57FCFBAF A2 
ADO18422730FD88F 6E 
83DBOD6ADODABICI A9 
37135C2C2D78B497 18 
E9E91353F02F312E FD 


: 20243B3920A14894 B7 


261830CD4801715C OA 


1 Et104241108A0D12 5C 


71C114BBF6BF 4982 83 
710D52F4818709CC 3E 
C100S1C11884180E AD 
SESD4CCDB1351CFE 50 
FBISB1AF6BDG32FO EF 
F 35 
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JPC 


J/A 1885 PPC PARIS CHAPTER 


ASSOCIATION REGIE PAR LA LOI DE 1901, ENREGISTREE 
A PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82/3240 


NOM 
PRENOM 11! 
ADRESSE !_!_! 


HT SNS RNRERNONENSETELNENESSRSIRENESSE: 
CODE POSTAL 111 1 
TELEPHONE DOMICIL 


PROFESSION 
INTERETS 


MATERIEL HP EN VOTRE POSSESSION 
om 


AUTRE MATERIEL MICRO-INFORMATIQUE 
D mo 9 mr ns 
mm mt Rire on ee en 


COMMENT AVEZ-VOUS CONNU PPC PARIS CHAPTER ? 
PUBLICITE MAGAZINE 
AUTRE CLUB HP 
RELATIONS, MEMBRES DU CLUB, AUTRES 





Je souhaite adhérer au club PPC PARIS CHAPTER conformément aux statuts de 
l'association. Au mieux de ma connaissance, je déclare avoir le droit de fournir 
tous les programmes et informations que je vous enverrai (sans enfreindre des 
obligations de secret à l'égard d'autres personnes ou organismes) pour 
publication dans le journal de liaison, sans obligations ni responsabilité 
d'aucune sorte (en cas d'utilisation frauduleuse) de la part des dirigeants du 
PPC PARIS CHAPTER. 
LU EE 


1 D PE BR NAS ! 


ATE 
IGNATURE, PRECEDEE DE LA MENTION "LU ET APPROUVE" 


l 1 


LE MONTANT DE LA COTISATION AU PPC PARIS CHAPTER S'ELEVE A 300.00 FF. 
ETUDIANTS: 250.00 FF. (JUSTIFICATIF INDISPENSABLE ) 
PAIEMENT EFFECTUE LE i_1_1/1_1_1/191_1_1 À L'ORDRE DE PPC PARIS CHAPTER. 
PAR [ 1 CHEQUE BANCAIRE N° BANQUE 

[ ] CHEQUE POSTAL 3 UOLETS N° 

[ 1] MANDAT LETTRE 
EVENTUELLEMENT: JE M'ABONNE À COMPTER DU 1_!_1/1212 
JOINDRE À VOTRE INSCRIPTION UNE PHOTO D'IDENTITÉ ET UNE ENVELOPPE TIMBREE À 
VOTRE ADRESSE. 


_11/191 II 


n26 page 80 


UEUILLEZ ENUOYER TOUTE CORRESPONDANCE A: 
MR PHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARIS (FRANCE) 


LE] 


7 
D eo gr os A à ne 


le journal, J.P.C. est un bulletin de 
liaison entre les nenbres GE 
l'association loi de 1901 PFC.P.C.. Le 
club est éditeur du J.P.C. et son siège 


est au 56 rue Jean-Jacques Rousseau -— 
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